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De NOS is al jaren bekend om zijn compu- 
terrubriek Basicode. Het tijdstip om ‘digi¬ 
taal’ te worden komt naderbij! 


Redactioneel 

Commodore is altijd een bedrijf geweest, 
dat vele ijzers In het vuur had. Al in de 
begintijd kocht men een chipsfabrikant 
om de toevoer van chips voor de toena- 
mlige PET en allerlei handrekenmachines 
veilig te stellen. Op een ander cruciaal 
moment, toen het succes van de Macin¬ 
tosh en de PC zich begon af te tekenen, 
verworf men het bedrijf Amiga Ine., omdat 
men daar zulke sublieme grafische en au* 
dio-chips had ontwikkeld voor een revo¬ 
lutionaire computer, die we nu allemaal 
als de Amiga kennen. Natuurlijk is er in de 
loop der jaren ook wel het een en ander 
mis gegaan, en bereikten bepaalde pro- 
dukten niet de wereldtop. 

Maar in het algemeen heeft Commodore 
getoond, over opmerkelijke vasthoudend¬ 
heid te beschikken, waarmee men tel¬ 
kens weer uit het dal omhoog wist te klim¬ 
men. De situatie is nu, dat er in ieder 


geval weer een aardige winst gemaakt 
wordt en men met concurrerende produk- 
ten in vrijwel iedere {micro)-computerca- 
tegohe aan de markt timmert. Met nog 
steeds een goed lopende Commodore 64 
als absolute topper in aantallen, een nu 
weer met de PC-1 uitgebreide reeks MS- 
DOS modellen en als vlaggeschip de 
Amiga, heeft men een heel breed assorti¬ 
ment. Het is duidelijk, dat die machine in 
de loop der tijd toch een eigen publiek 
heeft gevonden, vaak gebruikers met bij¬ 
zondere wensen die niet uit de voeten 
kunnen met een PC of Macintosh. Voor 
de komende maanden zien we daarbij 
een grote bloei voor de DeskTop Publish- 
ing op de Amiga, ook hier weer met net 
dat beetje extra (kleur), dat andere machi¬ 
nes missen, 

Luc Saia 
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Op de Seybold DTP-conferentie in Santa Clara was een Amiga systeem voor pagina- 
opmaak één van de noviteiten. De bezoekers van deze conferentie waren verbaasd 
over de grafische hoogstandjes en de snelheid, waarmee het beeld werd opgebouwd. 
De Amiga 2000 blijkt een krachtpatser op DTP gebied. 


Desktop Publishing op de Amiga 


Pagina-opmaak binnen bereik 


E ens per jaar houdt Jonathan Seybold een grote conferentie over wat best 
de modegril van de tweede helft van de tachtiger jaren genoemd mag 
worden. Desktop Publishing ofwel met de computer zelf de drukwerkvoor- 
bereiding, montage en (proef)-zetwerk doen is een grote doorbraak voor het 
computergebruik. 


Het begon met Apple en de Apple La¬ 
serWriter, waardoor de computerge¬ 
bruikers, vooral in de VS, plotseling 
ontdekten, dat ze zelf professioneel 
uitziende publicaties konden maken. 
Het laatste jaar is de Apple wel in¬ 
gehaald door de MS-DOS computers 
en zijn de meest bekende pakketten 
van de Apple ook voor de IBM-wereld 
beschikbaar gekomen. Op dit moment 
worden pakketten als Ventura in snel¬ 
treinvaart in bedrijven geïntroduceerd, 
omdat men wel inziet dat er grote be¬ 
sparingen en een duidelijke kwali¬ 
teitsverbetering van de presentatie 
mee bereikt kan worden. 


‘Total Presentation’ systeem 

De Amiga is van nature niet alleen ge¬ 
schikt voor het maken van fraaie pagi- 
na-layouts, maar kan nog veel meer 
met beelden doen. In Santa Clara was 
het thema rond de Amiga-stands dan 
ook vooral Total presentation’, waar¬ 
bij video, animaties, en DeskTop Pu¬ 
blishing samen werden gebruikt om 
bepaalde boodschappen op een geïn¬ 
tegreerde manier veel effectiever te 
laten overkomen. Vooral die ‘zelf- 
uitgever’ software staat in de belang¬ 
stelling en in Santa Clara was dat ook 
het hoofdonderwerp. 

Voor de Amiga zijn er een aantal voor¬ 
zichtige pogingen geweest om DTP te 
lanceren en hier en daar zijn er ook 
wel pakketten getoond, die al heel wat 
konden bereiken. Met name Gold Disk 


Ine. met PageSetter was in dit opzicht 
de eerste met een werkbaar DTP-pak- 
ket. Maar van een DTP-doorbraak op 
de Amiga was nog geen sprake. Dat 
komt ook, omdat er een beetje een 
wanverhouding is tussen de prijs van 
een Amiga en die van een PostScript 
(de meest populaire vormtaal bij DTP 
programma’s) compatibele laserprin¬ 
ter. De Amiga kost minder dan 2000 
gulden, de printer meer dan 15 dui¬ 
zend. De gemiddelde Amiga-bezitter 
is dus niet in de markt voor zo’n printer 
en doet het met zijn matrix-model, met 
duidelijk mindere resultaten. Maar ge¬ 
lukkig komt de prijs van dergelijke la¬ 
serprinters fors omlaag en gaat aan 
de andere kant de kwaliteit van de 
niet-PostScript laserpinters, zoals die 
van Canon, HP en Kyocera, ook om¬ 
hoog. 

Professional Page 

Het nieuwste DTP pakket, en te zien 
als de opvolger van PageSetter, is 
ook van Gold Disk Ine. en heet Profes¬ 
sional Page. Het is een compleet 
WYSIWYG pakket, in kleur en ook ge¬ 
schikt om kleurenseparaties voor vier¬ 
kleurendrukwerk mee te maken, een 
unicum op DTP gebied. 

Kwalitatief ook zeer goed is Shake- 
speare van Infinity Software, ook een 
compleet DTP pakket. 

Microsearch heeft City Desk ge¬ 
maakt, een pakket voor de Amiga, 
waarmee meerdere pagina’s tekst te¬ 
gelijk op het scherm gemanipuleerd 


kunnen worden, hetgeen voor com¬ 
plexe opmaakbezigheden als bij een 
krant natuurlijk van belang is. 

Als laatste nieuwe DTP pakket noe¬ 
men we Publisher 1000, van Brown- 
Wagh Publishing. Dat is een pagina- 
opmaak pakket voor nieuwsbrieven, 
brochures en dergelijke. 



De Amiga 2000 


TeX 

De wetenschappelijke computerfans 
kennen zeker Knuth’s tekstprogram¬ 
ma Tex, dat onder Unix een zeer wijd¬ 
verbreid succes kent. Daarvan is er nu 
ook een Amiga versie, waarbij bijvoor¬ 
beeld ook typesetting-commando’s in 
teksten kunnen worden ‘ingebed’. 
Deze aanpassing van TeX is gemaakt 
door N-suqared Computer Consul- 
tants. 
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2000 met open architectuur 

Natuurlijk is de Amiga 2000 de aan¬ 
gewezen machine voor het zwaardere 
werk, omdat door de vrije sleuven de 
koppeling van video-apparatuur via 
een gen-locker, MS-DOS uitbreiding 
en dergelijke het systeem heel univer¬ 
seel kunnen maken. 


PC CARD SL0TS 
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i 
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SLOT 



Zo werkt Bridgeport met PC en 
Amiga-slots 


Torpedo Boat 
Simulation 

In de Verenigde Staten is zojuist het 
pakket Torpedo Boat Simulation 
verschenen. Dit speciaal voor de C-64 
gemaakte wargame speelt zich 
geheel op het water af. Wie van snel¬ 
heid en actie houdt en niet bang is om 
nat te worden, wordt bij deze uit¬ 
genodigd om aan boord van de PT- 
109 patrouilleboot te komen. Door zijn 
uitstekende manouvreerbaarheid kan 
de PT boot in verscholen baaien en 
andere gebieden komen waar andere 
schepen geen toegang hebben. Maar 
zelfs daar ben je niet veilig, de vijand 
is niet alleen op het water aanwezig, 
maar schuilt ook in de lucht, dus pas 
goed op, je hebt al je wapens nodig 
om te kunnen overleven. In het ene 
geval zullen de torpedo’s beter van 
pas komen dan de dieptebommen, 
maar ook de raketten en de machine¬ 
geweren zullen hun diensten bewij- 



Om nu ook PC kaarten te kunnen ge¬ 
bruiken in een Amiga, is een aanpas¬ 
sing nodig, die onder de naam 
Bridgeport (A2088D) door het leven 
gaat. Hiermee is ook een zekere 
(kaart) hardwarecompatibiliteit met de 
PC bereikt. Kosten rond de 1.900 gul¬ 
den. 


Titeling 

Om gemakkelijk ondertitels bij video¬ 
producties, maar ook fraaie aftiteling 
met grafische effecten te maken, is 
tegenwoordig een Amiga 2000 met 
een kleurenmonitor en een A2300 
genlock voldoende. Dat wil zeggen, 
het hiervoor meest geschikte pro¬ 
gramma, VideoTitler van Aegis Deve- 
lopment Corporation, vraagt wel 2 
MegaByte RAM aan geheugen. 


SOFTWARE 


zen. Overleven is in deze wa(te)rga- 
me een moeilijke opgave. 

Torpedo Boat Simulation heeft vier 
moeilijkheidsgraden en verder zijn er 
vele verschillende opdrachten, die 
door de opperbevelhebber kunnen 
worden opgedragen. Jammer voor 
onze Hollandse mijnvegers die mo¬ 
menteel in de Perzische golf ronddob¬ 
beren, maar het pakket is momenteel 
nog niet in Nederland verkrijgbaar; het 
zal echter niet lang meer op zich laten 
wachten. In de VS is het momenteel 
verkrijgbaar voor $35, wat de prijs hier 
zal worden is nog niet bekend. 

The Armageddon Man 

Armageddon Man van Martech zal 
waarschijnlijk in augustus op de markt 
komen met een Commodore versie. 
Deze game is echt geen simpele 
shoot’em up, maar meer een combi¬ 
natie van computeractie met tactiek 
en mentale kracht. 

Armageddon Man speelt zich af in het 
jaar 2032. Het nucleair wapenar¬ 
senaal heeft zich de laatste dertig 
jaren ernstig uitgebreid. Er zijn inmid¬ 
dels 16 nucleaire supermachten, elk 
met het vermogen om een beging te 
maken met het einde van de wereld 
(Armageddon). 

De Armageddon man is de opper¬ 
bevelhebber van de United Nuclear 
Nations, en hij heeft een enorm net¬ 
werk ter beschikking om alle gebeur¬ 
tenissen op politiek, sociaal en militair 
niveau te controleren. De Armaged¬ 


Networks 

Een andere noviteit was het koppelen 
van Amiga’s in een soort netwerk. 
Dergelijke ‘peer-to-peer’ koppelingen 
maken het gezamenlijk gebruiken van 
dure randapparatuur als een laser¬ 
printer veel gemakkelijker. Ook kan 
men ‘files’ gemakkelijk overbrengen 
van de ene computer naar de andere. 
De eerste LAN-kaart op dit gebied 
voor de Amiga is van Ameristar en laat 
koppeling aan een ARC-NET lokaal 
netwerk toe. Ook komen er netwerk- 
produkten beschikbaar om een kop¬ 
peling naar een Ethernet tot stand te 
brengen, die werkt volgens het 
TCP/IP en UDP/IP protocol. De kop¬ 
peling naar de grotere computers is 
daarmee mogelijk. 


don man heeft tot taak om een nu¬ 
cleaire oorlog te voorkomen, maar 
mag in het ergste geval gebruik ma¬ 
ken van zijn laserwapens om gevaar¬ 
lijke conflicten in de kiem te smoren. 
Voor de liefhebber van Risk of men¬ 
sen met grootheidswaanzin een ide¬ 
aal spel. Het spel, van Martec, zal on¬ 
geveer 35 gulden gaan kosten. 



Armageddon man 
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Na het artikel in Commodore Info 4/87 over het maken van een multiple choice-test op 
de computer nu deel zes van de reeks over leerprogramma’s. Het onderwerp is deze 
keer een simulatie-spel. 


Zelf leerprogramma’s maken in BASIC 


Deel 6: Beurs-simulatie 


E r zijn in deze reeks al heel wat verschillende doelgebieden 
voor computergebruik binnen het onderwijs aan de orde 
geweest. Deze keer toetsen we de computer op een ander 
toepassingsgebied. We richten onze aandacht deze maand 
op het nabootsen van de werkelijkheid: een simulatie van het 
beursgebeuren. 





Zoals al eerder bleek zijn er talloze 
mogelijkheden om een computer zin¬ 
vol binnen het onderwijs in te zetten. 
Zelfs een avontuur in de klas bleek 
voor veel lezers een spannende uit¬ 
daging. Bedankt voor alle reacties en 
opmerkingen hierover. Wij zijn blij met 
uw betrokkenheid. Deze keer gaan we 
eens in op een ander gebied van het 
computergebruik in de klas, namelijk 
het simuleren van mogelijk werkelijke 
situaties. 


Een voorbeeld 

In andere vormen van onderwijs, 
vooral in het wetenschappelijk gericht 
onderwijs, is het simuleren van een 
bepaalde situatie, voor studiedoelein¬ 
den, vrij gebruikelijk. Vooral als de be¬ 
wuste situatie erg gevaarlijk of kost¬ 
baar is. Een computer is dan een snel¬ 
le, goedkope en vooral veilige manier 
om de effecten en resultaten van be¬ 
paalde beslissingen te kunnen bestu¬ 
deren. Op universiteiten staan reek¬ 
sen computers alleen voor dit doel op¬ 
gesteld. Het nagaan van bijvoorbeeld 
genetische veranderingen onder in¬ 
vloed van radioactieve straling laat 
zich goed in de praktijk onderzoeken. 
Men neemt daarvoor vaak fruitvlieg- 
jes, die een korte levenscyclus heb¬ 
ben en zich snel vermenigvuldigen (1 
dag). Eventuele mutaties zijn zeer 
snel zichtbaar. Met behulp van een 
computer kan men op grond van de 
uitkomsten de veranderingen in de 


komende honderden ge¬ 
neraties van dat vliegje 
met zeer grote nauw¬ 
keurigheid voorspellen. 

En hoewel dit voorbeeld 
natuurlijk niet spectacu¬ 
lair te noemen is, is het 
wel maatgevend voor de 
ongekende gebruiksmo¬ 
gelijkheden van de com¬ 
puter op dit gebied. Door 
middel van een pro¬ 
gramma, dat een situatie 
simuleert op grond van 
bekende gegevens, kan 
men inzicht verkrijgen in 
bepaalde processen, die 
bepalend zijn voor het eindresultaat. 
Daarbij heeft een simulatie de voorde¬ 
len van veiligheid, betaalbaarheid en 
snelheid. Comfortabeler is het ook 
nog in de meeste gevallen. 

Simulatie in de klas 

Wat moeten we nu met een simulatie 
in de klas. Dat is een duidelijke vraag. 
Het antwoord wordt net zo duidelijk, 
als we proberen de vakgebieden, 
waarin we als onderwijsgevende zelf 
vaak proberen aanschouwelijk onder¬ 
wijs te geven, te omschrijven. Vaak 
zijn er abstracte zaken aan de orde, 
die de aanschouwelijkheid behoeven, 
omdat alleen dan de situatie voor de 
kinderen helder wordt. Dat is zeker in 
de hogere klassen van de basisschool 
zo. Vaak gebruiken we dan een pro¬ 


gramma op videoband of audiocas¬ 
sette of we presenteren een dia-serie. 
Bij projecten e.d. komt er nog wel 
eens een gast-docent. Sommige situ¬ 
aties krijgen helderheid door het spe¬ 
len van een rollenspel of de groep 
gaat op excursie. En dan tenslotte, bij 
sommige zaken kan de computer een 
handje helpen. Al deze genoemde 
dingen zijn normale routine in het 
klassegebeuren. Computergebruik in 
deze helaas nog niet. Commodore- 
Info wil een bijdrage leveren, om hier¬ 
in verandering te brengen. 

Er zijn veel zaken die geschikt zijn om 
gesimuleerd te worden. Ga zelf de 
mogelijkheden maar na. Van vliegsi¬ 
mulatie, maanlander tot meer laag-bij- 
de-grondse aktiviteiten zoals bijvoor¬ 
beeld het beveiligen van een gebouw 
of het regeren over een denkbeeldig 
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land. Of meer technische zaken zoals 
het simuleren van de werking van een 
atoomcentrale of een verbrandings¬ 
motor, overal kan de computer van 
grote dienst zijn. Wij kozen voor een 
beurs-simulatie. Aan de hand van een 
door ons ontwikkeld beurs-simulatie 
programma, willen we de mogelijkhe¬ 
den van simulatie in de schoolpraktijk 
in een ander daglicht plaatsen. 

De effectenbeurs 

Op een effectenbeurs verhandelt men 
aandelen en andere waardepapieren. 
De prijs wordt grotendeels bepaald 
door de ‘stemming' en de verhouding 
tussen vraag en aanbod. Deze me¬ 
chanismen zijn redelijk te overzien, 
dus ook te simuleren. Verder kunnen 
allerlei onverwachte schommelingen 
in de koersen worden veroorzaakt 
door meer willekeurige factoren. Ver¬ 
der kunnen fondsen zo slecht lopen, 
dat de prijs tot een minimum daalt of 
het gaat zo goed, dat er dividend 
wordt uitgekeerd aan de bezitters van 
de bewuste aandelen. Uitgaande van 
een nominale koers van 100 kan de 
waarde van een aandeel, afhankelijk 
van de koers, dalen of stijgen. De 
koers is dan het waarde-percentage. 
Bekende materie, wellicht. 

Zie daar alle ingrediënten voor een 
simulatie van de beurs voor kinderen 
in de klas, die door middel van de 
simulatie enig inzicht krijgen in het rei¬ 
len en zeilen van een effectenbeurs. 
Het wordt gespeeld als educatief spel. 
Let wel, spel, want het gaat slechts om 
een gesimuleerde situatie. 

Het programma 

Het programma is zo gemaakt, dat het 
scherm steeds dezelfde indeling 
heeft. Dat geeft rust en alles is direct 
te overzien. Het onderste deel van het 
scherm wordt gebruikt voor wisselen¬ 
de mededelingen. Steeds als er een 
handeling wordt verricht, loopt het 
programma door een koersbepalende 
module. Die module staat verder borg 
voor de verrassingen voor de speler. 
Heel eenvoudig kunt u dus zelf het 
verloop beïnvloeden, door in die pro- 
gramma-module veranderingen aan 
te brengen. Maar laten we niet op de 
zaken vooruit lopen. Ik wil met u het 
programma stap voor stap doorne¬ 
men, zodat de programmeer-strategie 
duidelijk wordt en u de opgedane er¬ 
varingen ook in andere simulaties 
kunt benutten. Want daar gaat het ons 
wel om: het doorgeven van ervaringen 
ter meerdere glorie van de computer 
in de klas. 


Vaste technieken 

We gebruiken een aantal vaste pro- 
grammeer-technieken, die u wel zult 
herkennen uit de voorgaande afleve¬ 
ringen. We maken eerst een aantal 
strings klaar om te gebruiken bij de 
cursor-plaatsing: NE$ en RE$. Ook 
komt de spatie-string SP$ erg van 
pas. Zie daarvoor de regels 155-170. 
Omdat ook de functie-toetsen steeds 
weer een functie hebben in het pro¬ 
gramma, evenals de RETURN-toets, 
zetten we de aanduidingen ook in een 
aantal strings. Zie regel 195-215. 
Regel 230-255 realiseert het wachten 
op een toets-indruk en kan als sub- 
routine in elk deel van het programma 
worden aangeroepen. Klok op nul en 
daar gaat het programma van start. 
De eigenlijke ‘body’ van het program¬ 
ma staat in de regels 265-285. U ziet 
wel, dat het programma voornamelijk 
bestaat uit diverse sub-routines, die in 
een bepaalde volgorde worden uitge¬ 
voerd. Er zitten grote voordelen aan 


OPROEP 

Bij deze aflevering, waarin wij u op 
zinvolle ideëen willen brengen voor 
het zelf ontwikkelen van program¬ 
matuur voor in de klas, een verzoek. 
Wij zijn er van overtuigd, ook gezien 
de reakties van de lezers, dat er veel 
zelfgemaakte schoolprogramma ’ s 
op diverse tapes en diskettes staan. 
Ieder die zich met de materie 
bezighoudt heeft wel zo zijn eigen 
inzichten en bekwaamheden. Com¬ 
modore-Info wil als bemiddelaar 
optreden, om deze programma’ s on¬ 
der een breder publiek te brengen. 
Waarom zwoegen aan een bepaald 
programma, als een ander dat al¬ 
lang heeft uitgewerkt. Als iedereen, 
die zelf leerprogramma’ s ontwikkelt 
(hoe bescheiden ook), zijn of haar 
produkten naar onze redaktie 
stuurt, dan verzamelen wij alle in¬ 
gestuurde programma’ s en bieden 
ze dan op basis van kostprijs als 
totaalpakket aan onze lezers aan . Zo 
kan een omvangrijke program- 
mabank ontstaan, waar iedereen 
zijn of haar voordeel mee kan doen. 
Doe allemaal mee, dan kan het een 
groot succes worden. Stuur uw 
leerprogramma’ s op cassette of dis¬ 
kette naar: 

Redaktie Commodore-Info 
Postbus 112 
1260ACBlaricum 

onder vermelding van 

"Leerprogramma’s”. 


deze manier van modulair program¬ 
meren. Heel eenvoudig kan de loop 
van een programma worden bepaald 
en gewijzigd, als die niet bevredigend 
funktioneert. Voor alle handelingen 
zijn er sub-routines, die u kunt be¬ 
schouwen als afgeronde mini-pro- 
grammaatjes, die ook zelfstandig kun¬ 
nen draaien. Dat is vooral handig bij 
het uittesten van het programma. Elke 
sub-routine zou los kunnen worden in¬ 
getikt, getest en bij goedbevinden 
worden weggeschreven. Later kun¬ 
nen de modules dan via een AP- 
PEND-commando (u heeft dan wel 
een goede BASIC-toolkit nodig!) aan 
elkaar worden geplakt. Maar goed, 
dat hoeft natuurlijk niet. 

Schermpresentatie 

Zo wordt de schermopbouw geregeld 
in de module die begint op regel 295. 
Hoewel we in eerdere programma’s 
uitsluitend gebruik maakten van 
CHR$-codes bij het opzetten van ka¬ 
ders en dergelijk, stappen we in dit 
programma even van die conventie af. 
De reden is puur praktisch. Een een¬ 
voudig kader laat zich met CHR$-co- 
des gemakkelijk opbouwen. Het kader 
in dit simulatie-programma is wat te 
ingewikkeld voor deze werkwijze. Ü 
zult nu gebruik moeten maken van de 
tekenset van uw Commodore 64. 
Voor op de lettertoetsen staan allerlei 
grafische tekens. U kunt die op het 
scherm zetten, door op de SHIFT- of 
Commodore-toets te drukken, tegelijk 
met die bewuste toets. Raadpleeg 
even de gebruikers-handleiding van 
uw computer. Denk er wel aan, dat de 
computer in onderkast-letterstand 
moet staan. Dat scheelt wel in het 
aantal tekens. Het scherm is 38 karak¬ 
ters breed. Er blijven dus 2 posities 
over aan de rechterkant. Dat bleek 
eenvoudiger bij de schermpresenta¬ 
tie. Regel 390 wist acht keer een regel 
onder het eerder geplaatste kader. 

De sub-routines 

Zoals gezegd bestaat het programma 
uit een aantal sub-routines. De 
schermopbouw en het wachten op 
een toets-indruk (resp. regel 295 en 
230) kwamen al ter sprake. Maar er 
zijn er natuurlijk meer. Op regel 405 
start het invullen van de eerder ge¬ 
plaatste scherm lay-out: de financiële 
status van de speler tot in detail. Daar¬ 
bij wordt een schijnbaar merkwaar¬ 
dige konstruktie gebruikt om de gege¬ 
vens op het scherm te printen. Regel 
430 lijkt wel een toverformule uit het 
land van Oz. Niets is minder waar. 
Omdat in de BASIC van de C-64 een 
PRINT USING instructie ontbreekt om 
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getallen mooi te rangschikken, doen 
we het op deze manier. We gebruiken 
dezelfde formule verschillende malen. 
Lees even mee: 

430 print left$(re$,5-len(str$(kb(i)))); 
440 print kb(i); 

De string RE$ werd gebruikt voor het 
plaatsen van de cursor op een bepaal¬ 
de kolom op het scherm. Zoiets doet 
TAB(x) ook. Nu halen we een bepaald 
deel uit de RE$-string om de eerstvol¬ 
gende print-positie vast te stellen. Die 
positie is vervolgens afhankelijk van 
de lengte van STR$(kb(i)), die wordt 
afgetrokken van de vaste waarde 5. 
Ter verduidelijking een voorbeeld met 
echte getallen. Stel kb(i), dat is het 
aandelenbezit van een bepaald fonds, 
is 12. De verwerking van regel 430 is 
dan zo: 

a. 430 print left$(re$,5-len 

(str$(kb(i)))); 

b. 430 print left$(re$,5-len(" 12")) 

c. 430 print left$(re$,5-3) 

d. 430 print left$(re$,2) 

Na de bewerking met STR$(x) is die 
bewuste string drie karakters lang. Let 
op de spatie die er door de bewerking 
bijkomt! De print-positie wordt zo twee 
spaties naar rechts bepaald. Schrik 
niet. U hoeft dit niet zo in te typen. De 
oorspronkelijke regel 430 voert alle 
handelingen automatisch uit. Het ef¬ 
fect is natuurlijk duidelijk. Alle eenhe¬ 
den, tientallen en honderdtallen van 
de waarden op het scherm komen 
keurig recht onder elkaar. Dat ziet er 
dan netjes en overzichtelijk uit. 

Er zijn in de simulatie vier hoofdver¬ 
richtingen. Dat zijn kopen, verkopen, 
het bekijken van het aandelenaanbod 
en het laten passeren van een beurt 
(niets doen dus). Vanuit het hoofd¬ 
menu kan de speler kiezen. Zie daar¬ 
voor de sub-routine die begint op re¬ 
gel 530. De funktie-toetsen doen het 
werk in de sub-routine vanaf regel 
585. Afhankelijk van de ingedrukte 
funktie-toets verspringt het program¬ 
ma naar de betreffende onderdelen. 


Kopen 

Het kopen van aandelen begint op re¬ 
gel 830. De beschikbare fondsen ver¬ 
schijnen op het onderste gedeelte van 
het scherm. De speler moet het ge¬ 
wenste nummer indrukken. Zijn er 
aandelen van dat fonds te koop 
(m.a.w. is er inderdaad aanbod), dan 
kan de transactie verder worden af¬ 
gehandeld. Is dat niet zo, dan ver¬ 
schijnt de overeenkomstige medede¬ 
ling en de speler moet opnieuw een 
keuze uit het hoofdmenu doen. Hij of 
zij zou natuurlijk eerst even het aan¬ 
bod kunnen bekijken via funktie-toets 
f7. 

Als er aanbod is, moet de speler het 
aantal te kopen aandelen bepalen. Dit 
kan eenvoudig door te drukken op de 
‘+’-toets voor verhogen of op de ‘-’- 
toets voor verminderen van het aan¬ 
tal. Is het gewenste aantal bereikt, 
dan wordt na een druk op RETURN 
gekeken of de speler wel voldoende 
geld heeft voor de aankoop. Zijn de 
financiën in orde, dan wordt de trans¬ 
actie definitief uitgevoerd, de koers¬ 
wijzigingen berekend en tenslotte 
wordt het schermkader voorzien van 
de nieuwe gegevens. 

Verkopen 

Het verkopen heeft ook een vast pro- 
gramma-verloop. Eerst wordt ge¬ 
vraagd van welk fonds verkocht moet 
worden. Indien die in bezit zijn, moet 
de speler aangeven hoeveel er ver¬ 
kocht moeten worden. Als alle gewen¬ 
ste handelingen toegestaan zijn, 
wordt de transactie verder afgehan¬ 
deld, de koers aangepast en het 
scherm opnieuw ingevuld. Ook nu 
meldt het programma een niet moge¬ 
lijke transactie en vertelt ook de reden 
waarom niet. 


Geen transactie en aanbod 

Ook kan het soms slim zijn een be¬ 
paalde koersontwikkeling af te wach¬ 
ten zonder iets te kopen of te verko¬ 
pen. Dat kan ook in deze simulatie. 
Let op, het kan soms ook heel on¬ 


verstandig zijn om niets te doen! 

Kiest men met deze optie uit het 
hoofdmenu, dan krijgt men een over¬ 
zicht van de aangeboden aandelen, 
de aantallen en hun koers. Verder 
heeft deze keuze geen invloed op het 
koersverloop. 

De overige modules 

Verder heeft het programma een aan¬ 
tal sub-routines, die het verloop van 
het programma ondersteunen en dus 
van wezenlijk belang zijn. Vanaf regel 
775 wordt een lopende klok op het 
scherm gezet en bepaalde voorwaar¬ 
den worden getest. Bij een bepaald 
maximum of minimum bedrag aan 
geld of een bepaalde kloktijd wordt het 
spel gestaakt met daarbij behorende 
mededelingen. Die spreken verder 
voor zich. 

Als de koers van een aandeel boven 
de 300 nominaal komt, dan ontvangt 
de speler het boventallige bedrag als 
dividend op zijn of haar bankrekening. 
De koers wordt begrensd tot 300. Dat 
valt te lezen in de sub-routine vanaf 
regel 740. Daalt de koers beneden 1, 
dan bent u uw aandelen kwijt en de 
koers wordt op de stadwaarde 10 ge¬ 
zet. Uitkijken geblazen dus. 

Vanaf regel 675 worden de koersfac- 
toren verwerkt. Die module is natuur¬ 
lijk bepalend voor het hele spel. We 
hebben de berekeningen niet al te in¬ 
gewikkeld gemaakt. Ten eerste om 
het geheel begrijpelijk te houden. Ten 
tweede omdat wij ervan overtuigd zijn, 

dat er lezers zijn, die dat veel beter 
kunnen. 

Aan het einde van het programma 
vindt u de stadwaarden en andere 
vaste gegevens van het programma. 
Niets houdt u tegen om daarin naar 
eigen inzicht verandering te brengen. 
Ook andere begrenzers (bijvoorbeeld 
dividend, tijd, max. en min. geldbe¬ 
drag) kunt u zelf anders bepalen. 

Tot zover deze aflevering. De volgen¬ 
de keer komt de Abacus aan de orde. 

B.M. 


Listing Beurs-simulatie 


1OO rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
105 rem »» beurs simulatie spel xx 
110 rem xx #* 

115 rem xx leerpramma's in basic xx 

120 rem xx (c) 1987 bob munniksma xx 
125 rem xx voor commodore info xx 

130 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
135 : 

140 rem initialisatie 

145 poke 53280, O:poke 53281, O:poke646, 7 
150 print chr$(14)chr$(8)chr$(147); 

155 ne$-cbr$(19) 

160 for i=i to 30:neè=ne$+ chr$(17) 

165 re$;ret+chrt(29) 

170 sp$=sp$+chr$(32):next i 
175 for 1=1 to 4 

180 read kr$(i), kr(i) , ab(1), kb{i) 

185 next i:read fl 

190 for i=i to 6:read kn$(i):next i 


195 f l$=chr$ (18) + "f l "+chr$ (146) 

200 f3$ = cbr$(18)+"f3"+ chr$(146) 

205 f5$=chr$(18)+"f5"+chr$(146) 

210 f 7$ = chr$(18)+"f7"+chr$(146) 

215 r$ = cïir$ (18)+" RETURN "+chr$(146) 

220 ti$="OOOOOO":goto 265 
225 : 

230 rem wachten op een toetsindruk 
235 gosub 775 

240 print lef t$ (ne$, 23) lef t$ (re$, 1 ) ; 

245 print" Druk op "r$" om verder te gaan" 
250 get t$:1f t$="" then 250 
255 return 
2 60 ; 

265 rem stuurgedeelte 

270 gosub 295:gosub 405 

275 gosub 530:gosub 585 

280 on t gosub 830,960,1040,1165 

285 gosub 675:s=s+1:goto 265 


290 : 

295 rem beeldscherm opbouw 
300 print chr$(19); 

print" i- 


305 

310 

315 

320 

325 

330 

335 

340 


print"| 
print" |- 
print" 
print" 
print" 
print" 
print" 


Beurs 


Simulatie 


Spel 


Fonds 


t -1-r 

Bezit|Koers 


345 print" 

350 print" 

355 print" 

360 print" 

365 print" 

370 print" 

375 print" 1 --- 

380 print left$(ne$, 16) ; 


Waarde 


Geld in kas 
Waarde bezit 
Stappen 
Tijd 


f 1. 
f 1. 


H " 
I " 
H " 
I " 
I ” 
I " 
I " 
H " 

i M 


I" 


_j ti 
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Vervolg listing beurs-simulatie 


385 
390 
395 
400 
405 
410 
415 
420 
425 
430 
435 
440 
445 
450 
455 
460 
465 
470 
480 
485 
490 
495 
500 
505 
510 
515 
520 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 
575 
580 
585 
590 
595 
600 
605 
610 
615 
620 
625 
630 
635 
640 
645 
650 
655 
660 
665 
670 
675 : 
680 . 
685 . 
690 j 
695 : 


for i=l to 8 
print" 

next i:return 


print 

print 

print 

print 


rem financiële status 
1 tW; o 

print left$(ne$,5) 

for i = 1 to 4:if kb(i)=0 then 470 

print left*(re*, 2)kr*(i) ; 

print left$(re$, 6-1 en(str$(kb(i)))) ; 

print kb(i) ; 

print left$(re$,5-1 en(str$(kr(i)))); 
print kr(i); 
w(i)=kb(i)*kr(i) 

print left$(re$,9-len(str$(w(i)))) ; 
print w( i)chr*(157)" , 
tw= tw+w(i) 
next i 

print left$(ne$, 11); 

print left$(re$, 32-1 en(str$(f1))); 

print f1;cbr$(157)", 

print left$(ne$, 12) ; 

print 1eft$(re$, 32-1 en(str$(tw))); 

print tw;cbr$(157)", 

print left$(ne$, 13); 

print lef t* (re*, 32-1 en(str$(s)))s 

return 

rem menu 

print left*(ne$,15) 

print left*(re*,3)"Haak een keuze:» 
print left*(ne*,19)left*(re*,3); 
print f1$;» Kopen»tab(20); 
print f3$;» Verkopen» 
print left$(ne$,21)left$(re$,3); 
print f5$;» Geen aktie"tab(20); 
print f7$;" Aanbod" 
return 

rem opdracht ophalen 
gosub 775 

get t$:if t $-»» then 590 
t = asc(t $)-132 
if t<i or t >4 then 590 
return 

rem geld genoeg 
ks = a*kr(f) 

if fl<ks then kn=1:gosub 910:return 
fl = fl-ks:kb(f)=kb(f)+a 
ab(f)= ab(f)-a:return 

rem verkoop uitrekenen 
ab(f)=ab(f)+a:os=a*kr(f) 
if hrkb(i) then ct=int((a*kr(i)/100) 
fl=fl+os-ct:kb(f)=kb(f)-a:return 


print 

print 

print 


rem koersfactoren verwerken 
if t=i then ab(f)=ab(f)-a 
if t:2 then ab(f)=ab(f)+a 
gosub 380:for i=i to 4 
if ab(i)<l then ab(i)=1 


700 if ab(i)>20 then ab(i)=20 
705 kr(i)=int(kr(i)*(10/ab(i))) 

710 if kr(i) < i then kr(i)=10:kb(i)=0 

715 if kr(i) > 300 then gosub 740 

720 if t = 3 then ab(i):ab(i)+10:goto 730 

72 5 ab (i ) r ab (i ) + mt (rnd (1) *20) - 10 

730 next i:return 

735 : 

740 rem dividend 

745 dvrkr(i)-300:kr(i):300 

750 f1=f1+kb(i)*dv 
755 x- int(rnd(1)*50) 

760 if t = 3 then kr(i)=kr(i)-x 
765 return 
770 : 

775 rem tijd ophalen en controleren 
780 print chr$(18); 

785 print 1eft*(ne$,14)1eft$(re$,25); 
790 print mid* (ti$, 2, 1) " : " ; 

795 print mid$ (t i$, 3, 2) » : »right$ (1 1 $, 2) 
800 rem controleren 

805 if fl>999999 then kn=5:goto 910 
810 if fl<l and twcl then kn=4:goto 910 
815 if val(ti$)>1000 then kn=6:goto 910 
820 return 
825 : 

830 rem kopen 

835 gosub 380:print left$(ne$, 16) ; 

840 print 1eft$(re$, 3)"Kies een fonds:" 
845 print left*(ne*,18);:for i=l to 4 
850 print 1eft*(re$, 4);i;Rr$(i) :next i 
855 gosub 2 50:f = val(t$) 

860 if f<l or f>4 then 855 

865 h=ab(f) :gosub 380 

870 if h<l then Kn:2:goto 920 

875 print 1eft$(ne$, 16)1eft$(re$, 3); 

880 print chr$(18)" Kopen "chr*(146); 

885 print 1eft$(re$,4)kr$(f) 

890 print left$(ne$, 18)left$(re$, 5) ; 

695 print"Aantal: " 

900 gosub 1055:gosub 620:return 
905 : 

910 rem geen transactie mogelijk 
915 gosub 380 

920 print 1eft$(ne*, 16)1eft$(re$,2); 

925 print chr$(18)" Geen transactie » 

930 print left*(ne$, 20) ; 

935 print 1eft$(re$,2);kn$(kn) 

940 gosub 240 

945 if kn = 4 or kn=5 or kn=6 then run 
950 return 
955 : 

960 rem verkopen 

965 gosub 380:print left$(ne$, 16) ; 

970 print 1eft*(re$, 3)"Kies een fonds:" 
975 print left*(ne*,18);jfor i=l to 4 
980 print 1eft$(re$,4);i;kr$(i):next i 
985 gosub 250:f=val(t$) 

990 if f<i or f>4 then 985 

995 h=kb(f):gosub 380 

1000 if h=0 then kn=3:goto 920 

1005 print 1 ef t* (ne*, 1 6) 1 ef t* (re*, 3) ; 


1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 
1060 
1065 
1070 
1075 
1080 
1085 
1090 
1095 
1100 
1105 
1110 
1115 
1120 
1125 
1130 
1135 
1 140 
1 145 
1150 
1155 
1160 
1165 
1170 
1 175 
1180 
1185 
1190 
1195 
1200 
1205 
1210 
1215 
1220 
1225 
1230 : 
1235 : 
1240 ■ 
1245 i 
1250 « 
1255 < 
1260 < 
1265 < 
1270 < 
1275 c 
1280 < 
1285 < 
1290 c 


print chr*(18)" Verkopen "chr$(146); 

print left$(re$,4)kr$(f) 

print left*(ne*. 18)left*(re*, 5) ; 

print"Aantal: " 

gosub 1055:gosub 650:return 

rem geen transactie 
return 


rem aantal 
a = 1 

print left 
print left 
print left 
print left 
print chr* 
print left 
print chr$ 
print left 
print r$" 
gosub 250 
if asc(t$) 
if asc(t*) 
if asc(t$) 
goto 1065 


bepalen 

$(ne$,16); 

$ (re$, 16) ; 

*(sp*, 5-len(str$(a)));a 
$(ne*,20)left$(re$, 2) ; 

(18)"+»chr*(146)" = Heer»; 

* (re$, 2) ; 

(18)"-"chr*(146)" = Minder" 
$(ne*,22)left*(re*, 2) ; 

= Transactie" 

=43 then a=a+l:gosub 1140 
-45 then a=a-l:gosub 1140 
=13 then return 


rem controle 
if a < 1 then a=1 
if a > h then a=h 
return 

rem aanbod 

gosub 380:print 1eft$(ne$, 16) ; 

print left$(re$, 2)chr$(18) ; 

print" Aanbod en koers " 

print left*(ne$, 17):for i= 1 to 4 

if ab(i)< = O then 1220 

print left*(re*,5)kr$(i); 

print left*(re$,6-1en(str*(ab(i)))) ; 

print ab(i); 

print left*(re$, 6-1 en(str*(kr(i)))); 
print kr(i) 

next i:gosub 230:gosub 380:return 


rem gegevens in dataregels 
rem startwaarden 
data"Spoorwegen", 100, 10,0 
data "Bankwezen ",100,07,0 
data"Luchtvaart", 100, 02 , 0 

data"Computers ",100,04,0 
data 300 

data**Je hebt onvoldoende geld in kas" 
data"Er is geen aanbod van fonds" 
data"Je hebt geen aandelen van dit fonds" 
data"Het spel is uit! Je bent failliet" 

data"Het spel is uit! Je bent miljonair" 

data"Het spel is uit! De tijd is om" 
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Op de Efficiency vakbeurs in de RAI was vooral duidelijk, dat de PC en AT’s op zake¬ 
lijk gebied vrijwel door iedereen als standaard geaccepteerd zijn. In sommige deel¬ 
gebied, zoals DTP met de Macintosh en DeskTop Video met de Amiga, houden de af¬ 
wijkende machines nog stand, maar ook daar is de mS-DOS emulatie een verplicht 
nummer. Commodore toonde niet de PC-1, maar was wel aanwezig met een brede 
reeks verticale software- oplossingen. 

Efficiency Vakbeurs ’87 


Matig succes en weinig nieuws 


D e EVB trok dit jaar, na een zeer matige start op de eerste twee dagen, vol¬ 
gens de RAI/Vifka toch nog bijna 80.000 bezoekers. Maar gezien de 
steeds maar stijgende dagbezoekgrafiek leek het er vooral de laatste dag op, 
dat men de zaak ook wel erg graag op die vooraf aangkondigde 80.000 be¬ 
zoekers wilde brengen. Het feitelijke monopolie van de branchevereniging 
Vifka/RAI op dit computerbeurzengebied is echter sterk, mogelijke kritiek 
durven de standhouders niet erg duidelijk te melden. In de wandelgangen 
kon men wel horen, dat erg veel bedrijven helemaal niet zo blij zijn met elk 
jaar een Efficiency (Vak)beurs, maar het voorbeeld van IBM, HP en Wang niet 
durfden te volgen (die bleven gewoon weg van de beurs). 



De Commodore-stand van dit jaar 


Afgeblazen Micro-Trofee 

Op de eerste avond stond de uitrei¬ 
king van de Micro-Trofee van de VNU 
op het programma. Men heeft dat ech¬ 
ter op het laatste moment afgeblazen, 
om vrij onduidelijke redenen, maar 
daarmee leed deze uitgever een ge¬ 
voelig gezichtsverlies bij de deelne¬ 
mers aan de EVB. Bij geruchte zou 
deze prijs naar de Adventure-clan van 
Radarsoft gaan, die natuurlijk bij ons 
collega-blad op Commodore gebied 
ook wel erg goed vertegenwoordigd 
is. Maar dit jaar dus geen Micro-Tro¬ 
fee. Een op zich aardige traditie is in 
schoonheid gestorven. 

Beperking 

De ongeveer 400 deelnemers aan de 
Efficiency Vakbeurs werden dit jaar 
gedwongen zich te beperken tot een 
oppervlakte van 250 vierkante meter 
per stand. Dat gegeven zorgde, in te¬ 
genstelling tot wat verwacht werd, 
voor een minstens net zo luxueuze 
aanpak als in de afgelopen jaren. De 
‘grote’ stands zagen er meestal prach¬ 
tig uit. 

PTT in de aanval 

De privatisering van de PTT heeft nu 
geleid tot een offensief op het gebied 


van de telecommunicatie. Onder het 
motto ‘telegration’(eer\ onuitsprekelijk 
woord; speciaal voor de export?) pre¬ 
senteerde de PTT een concept waar¬ 
bij telecommunicatie en automatise¬ 
ring hand in hand moeten gaan. Daar¬ 
bij speelt Memocom, de electronische 
berichtendienst van de PTT, een be¬ 
langrijke rol. Ondertussen is wel dui¬ 
delijk, dat de ooit als revolutionair 
gebrachte Viditel-dienst het niet ge¬ 
maakt heeft. Men wil nu afstappen 
van de pagina-gewijs berichten en op 
de meer universele ASCII tekstmode 
gaan werken. Daarmee wordt Viditel 
dan net zo’n soort dienst als "The 


Source" in de VS en de fraaie plaatjes, 
die met Viditel wel, maar met ASCII 
niet kunnen worden overgedragen, 
verdwijnen dan. De PTT loopt hier na¬ 
tuurlijk niet erg mee te koop, maar 
men is al een jaar bezig de oude voor¬ 
raad Viditel-modems tegen steeds la¬ 
gere prijzen op te ruimen. Dat gaat 
dan om de V21-V23 modellen, die dus 
met de ondertussen befaamde 1200/ 
75 baud snelheid werken. Voor meer 
serieus dataverkeer, met bijvoorbeeld 
electronic mail-verkeer in twee richtin¬ 
gen, stapt men nu meestal over op 
V22, met 1200/1200 baud kan men 
dan in beide richtingen net zo snel ver- 
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CAD op Amiga 

Iets beter te overzien waren de moge¬ 
lijkheden van het XCAD-pakket, een 
qua capaciteiten met AutoCAD (voor 
MS-DOS) vergelijkbaar CAD-pakket. 
Met een prijs van ongeveer 
2.000 gulden echter veel goed¬ 
koper dan AutoCAD, waarmee 
Commodore dus een leuke 
troef in handen heeft in de strijd 
om de zakelijke computer- 
koper. Ook XCAD werd nog ge¬ 
demonstreerd in een demo¬ 
versie, waarmee nog niets kon 
worden bewaard, terwijl er en¬ 
kele keren een ‘software-fail- 
ure’ optrad. 

Binnen enkele weken is het vol¬ 
gens distributeur KPD wel le¬ 
verbaar. Het systeem zal diver¬ 
se printers en plotters onder¬ 
steunen. 

De PCI was slechts achter de 
gordijnen te bewonderen, en we ver¬ 
wachten dat model voor het eerst op 
de Computer Info Beurs op de RAI op 
17 oktober zal worden getoond. 


professionele pakketten getoond, die 
nog in een beta-versie draaiden. 
Professional Page is de opvolger van 
PageSetter, en veel viel er nog niet 
over te zeggen, omdat het pakket pas 
enkele dagen in Nederland was. Een 


student van de kunstacademie 
Utrecht liet wat van de mogelijkheden 
zien, zoals het inlezen van de files van 
het eveneens geïntroduceerde 
WordPerfect (4.1) voor de Amiga. 


sturen. Daarmee is de V21/V23 tech¬ 
niek wat achterhaald, al is het jammer, 
dat met name voor de Commodore 64 
dit nog wel het meest gebruikte mo¬ 
dem is. Als pleister op de wonde kan 
men dan ook nog wel met 300/300 
baud gaan werken (de V21 
mode), maar dat is vrij lang¬ 
zaam. De PTT heeft hier 
eigenlijk een wat laakbare op¬ 
stelling gekozen, is van zijn 
oude rommel af, maar daar¬ 
mee is de gebruiker niet echt 
geholpen. Voor een bedrijf, 
dat over ruim een jaar als 
zelfstandig en commercieel 
opererend bedrijf de markt op 
moet, een kortzichtig beleid. 


PC 40/40 

Commodore was op de Ef¬ 
ficiency Vakbeurs vooral ver¬ 
tegenwoordigd met zakelijke toepas¬ 
singen op de Commodore computers, 
vooral de PC-lijn, waarbij de PC 40/40 
als nieuw model werd geïntroduceerd. 
Op de Amiga werden twee nieuwe 


Si pplyholse Russen B.V. 
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Commodore is, nadat we het bedrijf misten op de PC-Expo in New York begin septem¬ 
ber, in Europa in ieder geval duidelijk actief aanwezig in de markt. In Parijs toonde com¬ 
modore zich met een behoorlijk grote presentatie op de mini-SICOB, waar we de 
primeur van de PC 1 weghaalden. 



Commodore met PC-1 op Parijse computerbeurs 


D e ‘Grande Exposition de la Micro Informatique’, die van 14 tot 19 septem¬ 
ber werd gehouden in de Parijse buitenwijk La Defense, werd beheersd 
door de Atari stand. Deze stand, waarin een aantal software-leveranciers 
een plaatsje hadden gevonden, nam ruim een vijfde van het totale beursop¬ 
pervlak in beslag. De grote namen als IBM, Hewlet Packard, Apple en derge- 
iijke ontbraken in het rijtje van 187 exposanten, waarvan behalve Atari ook 
Commodore een grote stand innam. I 

In Frankrijk lijken deze twee 
giganten van de huiscompu- 
ters ook op de zakelijke markt 
te gaan doordringen, met res¬ 
pectievelijk de Mega-ST en 
de Amiga 2000. Er waren di¬ 
verse Franse softwarepak¬ 
ketten voor deze machines te 
zien, waarmee deze appara¬ 
ten in de kleine (en zakelijke) 
markt gedegen concurrenten 
lijken te gaan worden voor de 
PC’s en de Macintosh. 


Atari laserprinter 

Het verrassende Atari nieuws 
was, dat er een werkende en 
‘echte’ laserprinter getoond 
werd, die zelfs al in Neder¬ 
land zou zijn, en ook gebruikt 
wordt. In combinatie met de 
Mega ST-4 is dit in theorie 


Commodore’s PC-1 (gescann-de afb.) 



een super-DTP systeem, 
waarbij de printer-processor 
in de micro zit en niet in de printer. Dit 
principe wordt overigens nu ook door 
IBM gebruikt met de Postscript-Page- 
printer, die op de Efficiency VakBeurs 
werd geïntroduceerd. In theorie zou 
dit ook heel goed met de Amiga kun¬ 
nen, ook daar zit een 68000 processor 
in, die krachtig genoeg is om de laser¬ 
printer aan te kunnen sturen. Of zoiets 
er zal komen is de vraag. 

Op de Commodore stand in Parijs kon 
men al wel de Amiga versie van Word 
Perfect bewonderen. Het gaat hier wel 
om een versie 4.1 van het op PC’s zo 


succesvolle pakket. Het biedt zowel 
de klassieke PC-aanpak met func tie- 
toetsen-besturing, als een uitvoering 
met gebruik van de muis en rollende 
menu’s op het scherm. Commodore 
kwam ook met twee nieuwe modellen 
PC’s, waarmee de totale lijn volgens 
het bedrijf compleet is. 

PC-1 voor beginners 

Vooral op de PC-1, de instapmachine 
voor MS-DOS van Commodore, heb¬ 
ben we lang gewacht. Geruchten, dat 


deze machine er aan kwam, 
circuleerden al geruime tijd, 
maar men heeft dus Parijs 
gekozen voor de wereldwijde 
primeur. 

Het beginnersmodel van 
Commodore is nu de PC-1, 
een PC met de 8088 proces¬ 
sor op een snelheid van 4,77 
MHz. Het model heeft een ge¬ 
heugen van 512 KB en één 
5,25 inch diskdrive. De PC-1 
gaat in Frankrijk inclusief BTW 
5.750 FF kosten (circa 2.000 
gulden). Voor Nederland zijn 
nog geen prijzen bekend, die 
zullen de komende maand be¬ 
paald gaan worden. Qua uiter¬ 
lijk is de PC-1 zeker een fraaie 
machine. Commodore liet ook 
het topmodel zien, de PC40/ 
40, een van de PC40 afgeleid 
model met 40 MB harddisk en 
als kleurenkaart een EGA. 

Ook in Frankrijk is nu een groot aantal 
nieuwe goedkope MS-DOS machi- 
ne’s op de markt gebracht, behalve de 
PC-1 van Commodore, o.a. ook de 
Vicki van Victor, waarvoor een gigan¬ 
tische reclamecampagne werd ge¬ 
houden, zodat heel Parijs vol hing met 
posters van de Vicki. Verder krijgt de 
T016 van Thompson ook veel aan¬ 
dacht. Het Franse bedrijf Thompson 
was verder de enige fabrikant die nog 
met 8-bits homecomputers (M06 en 
T08) op de proppen kwam. 
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De beginnende programmeur kan met hulp van deze serie artikelen over Basic stap 
voor stap leren, hoe leuk het is, om zelf meer te doen met de Commodore, dan alleen 
het spelen van voorgekookte spelletjes en het gebruiken van gekochte software-ap- 
plicaties. Stap voor stap worden in deze cursus door Jan Bodzinga de elementaire 
feiten van Basic behandeld. De stof is daarbij bewust erg eenvoudig en duidelijk ge¬ 
houden, zodat ook de volslagen ’leek’ op programmeer-gebied erdoor kan uitgroeien 
tot een redelijk programmeur. Maar ook de meer gevorderde ’Basiccer’ zal ongetwij¬ 
feld nog wel dingen in deze cursus tegenkomen, waarmee z’n kennis kan worden aan¬ 
gevuld. 


Basis Basic 

Deel 16: Data-opslag 


W e zijn al enige tijd bezig met het opbouwen van een goed gedokumen- 
teerd programma over een database. Dit programma zal uiteindelijk 
veel meer functies kunnen gaan vervullen, dan uitsluitend het vullen van de 
door ons in eerste instantie aangemaakte velden. Het programma is zo op¬ 
gezet, dat de listing voor eigen gebruik erg gemakkelijk is aan te passen en 
uit te breiden. Deze keer gaan we (eindelijk) dieper in op het gebruik van ex¬ 
terne data opslag. Het database-programma zullen we later aanvullen met 
de hier besproken gegevens. 

Cassettetape 


Externe opslag 

Als we werken met grotere bestanden 
dan de hoeveelheid geheugen (RAM) 
in onze computer toelaat, ontkomen 
we er niet aan, of de gegevens moe¬ 
ten buiten de computer worden op¬ 
geslagen, en alleen dan in het compu¬ 
tergeheugen worden gelezen als ze 
nodig zijn. Om deze externe opslag te 
kunnen realiseren moeten we gebruik 
maken van een periferiek apparaat 
om de data te bewaren. Voor de Com¬ 
modore kennen we een paar soorten 
en types externe opslag, waarvan de 
cassettetape de goedkoopste is. 
Daarnaast hebben we uiteraard de 
floppy-diskette en eventueel de RAM- 
disk. Deze laatste twee zijn duurder in 
aanschaf en gebruik, maar bieden 
een groot aantal voordelen met be¬ 
trekking tot snelheid en capaciteit. Om 
een goed gebruik te kunnen maken 
van deze opslag zullen we in deze 
aflevering ons bijna uitsluitend bezig¬ 
houden met de mogelijkheden en het 
programmeren van opslagapparaten. 


De kleinere types Commodore com¬ 
puters werden meestal gelijk verkoch- 
t met een cassette-recorder, waarmee 
de programma’s kunnen worden be¬ 
waard en ook databestanden kunnen 
worden opgeslagen. Deze recorders 
maken gebruik van standaard music- 
cassettes, die alleen qua lengte enigs¬ 
zins afwijken van de cassettes die ge¬ 
bruikt worden voor audiotoepassin- 
gen. 

Dit verschil ligt voornamelijk in de on¬ 
handige manier waarmee met een te 
lange cassette nog kan worden ge¬ 
werkt. Ook de prijs van het tapeom- 
hulsel is inmiddels zo gering, dat het 
beter is om met cassettes te werken, 
die niet langer zijn dan zo’n 15 mi¬ 
nuten speelduur. De opslag op een 
cassette gebeurd in principe op de¬ 
zelfde manier als het met de floppy het 
geval is. Aan de hand van hele series 
audio-pulsjes wordt de tape beschre¬ 
ven met de bits, dit samen het pro¬ 
gramma of de data vormen. De com¬ 


puter is gelukkig in staat deze serie 
piepjes weer op de juiste manier terug 
te kunnen lezen van de tape, zodat er 
bij het werken met cassettes weinig 
gekke problemen van de computer te 
verwachten zijn. Het grote nadeel van 
tape-gebruik is de snelheid en het feit, 
dat er met een tape uitsluitend sprake 
is van sequentieel lezen en schrijven. 
Sequentieel wil zeggen, dat de gege¬ 
vens uitsluitend in sequentie, ofwel 
achter elkaar kunnen worden gele¬ 
zen. Om bijvoorbeel record-nummer 
100 te kunnen lezen van een bepaald 
bestand, zal de cassette eerst terug 
moeten worden gespoeld naar het al¬ 
lereerste begin van het bestand. 
Vanaf dat, punt zal de computer het 
hele bestand moeten lezen, de gele¬ 
zen data eventueel weer moeten weg¬ 
gooien, tot het gewenste record 
(#100) is gevonden. Deze data wordt 
dan ingelezen en gebruikt. Willen we 
daarna bijvoorbeeld record 90 inle¬ 
zen, dan moeten we de hele serie 
handelingen weer opnieuw uitvoeren. 
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Om dan nog niet te spreken van de 
manier waarop wijzigingen in een be¬ 
staand bestand moeten worden ver¬ 
werkt. De enige mogelijkheid om dit te 
doen is, het hele bestand succesieve- 
lijk inlezen en weer opnieuw weg¬ 
schrijven op een andere tape, of ach¬ 
ter de oude op dezelfde tape. Kortom, 
zeer onhandig, maar wel goedkoppen 
functioneel voor huis-, tuin- en keu- 
kentoepassingen. 

Als we deze kwalificaties op een rij 
zetten, komt er bijna als vanzelfspre¬ 
kend uit naar voren, dat het werken 
met een cassette tape bijna niet te 
verwezenlijken is voor bestanden die 
groter zijn dan dat het computerge¬ 
heugen toelaat. Relatief kleine be¬ 
standen dus. 

Het werken met floppy-disk kent al de¬ 
ze problemen niet, en verdient dan 
ook in de meeste gevallen de voor¬ 
keur. Maar omdat er onder ons nogal 
wat cassettegebruikers zijn zullen we 
eerst het werken met tape wat beter 
bekijken. 


Programma’s 

Iedereen die in het bezit is van een 
computer heeft op z’n minst de basis¬ 
begrippen van het werken met een 
cassetterecorden onder de knie. We 
weten ook allemaal wel, dat het moge¬ 
lijk is om programma’s op tape weg te 
schrijven vanuit de computer, en ook 
dat ze weer terug kunnen worden ge¬ 
lezen. Vooral spelletjes worden zelfs 
nu nog vaak op een cassette verkoch- 
t en gebruikt. Dit zal z’n reden voorna¬ 
melijk hebben in het feit, dat in door¬ 
snee 90% van alle gebruikers nog wel 
beschikt over een cassetterecorder, 
zodat de verkochte software op cas¬ 
sette kan rekenen op een zo breed 
mogelijk verspreidingsgebied. 

Om programma’s te kunnen weg¬ 
schrijven naar disk, zullen we eerst 
een programma in de computer moe¬ 
ten hebben. We demonstreren de bei¬ 
de programma-functies voor cassette 
aan de hand van het volgende voor¬ 
beeld. 

Nadat de computer is aangezet, typen 
we een kort programma, dat er bij¬ 
voorbeeld als volgt uit kan zien: 

10 REM TEST PROGRAMMA 
20 FOR I = 0 to 20 
30 PRINT "CASSETTE", 

40 NEXTI 

Her runnen van deze listing is nu niet ! 
belangrijk, we willen het geheel op de 
band wegschrijven. Daarvoor moeten 
we op een paar dingen letten. Als eer- 1 
ste is het goed om het programma | 
vooraf nog een keer te controleren. j 


We doen dit door het ingeven van de 
opdracht LIST. Daarmee krijgen we 
de programmaregels nogmaals op het 
scherm, zoals ze aanwezig zijn in de 
RAM van de computer. Klopt dit met 
de listing in het blad, of een ander zelf 
bedacht programma, dan kunnen we 
verder gaan met de SAVE-procedure. 
We moeten zorgen voor een tape, 
waarop we gegevens kunnen weg¬ 
schrijven, waarbij je erom moet den¬ 
ken, dat de oude gegevens worden 
overschreven tijdens de opname. 
Spoel de tapen helemaal terug tot het 
begin van de band. Type dan vanuit 
de ’READY’mode : 

SAVE "TESTPRG",1 


SAVE. 

De opdracht: 

SAVE"TESTPRG" 

zou dus in de meeste gevallen het¬ 
zelfde resultaat hebben opgeleverd. 
Ook de opdracht SAVE "TESTPRG", 
1,0 is identiek. De laatste 0 is ook een 
oude optie. Deze 0 kan worden ver¬ 
vangen door een 2, waarbij achter het 
geSAVEde programma een apart 
EOT (end of Tape)-blok wordt ge¬ 
schreven, zodat de cassette hoe dan 
ook, stopt na het lezen van dit blok. 
We zullen ons met deze specifieke ei¬ 
genschappen van het secundary ad- 
dress maar niet bezighouden, 't Is 



Hiermee vertellen we de computer, 
dat het in RAM aanwezige Basic-pro- 
gramma moet worden weggeschre¬ 
ven naar cassette nummer 1. Het 
woord SAVE komt, net als alle andere 
Basic-opdrachten uit het engels en 
betekent niets anders dan bewaren, 
behouden. De naam tussen de beide 
aanhalingstekens is de naam waar¬ 
mee het programma op de tape zal 
komen te staan. Aan de hand hiervan 
is het mogelijk later het programma te 
kunnen herkennen. De komma en het 
getal 1 geven in de SAVE-opdracht 
aan, dat er als devicenummer 1 wordt 
bedoeld om de listing naar toe te zet¬ 
ten. 

Bij Commodore kan dit in veel geval¬ 
len worden weggelaten, omdat de 
meeste Commodore computers als 
default alle SAVE en LOAD opdrach¬ 
ten vanaf de eerste cassettepoort in¬ 
terpreteren. Alleen de C-64 portable, 
die ooit een half jaar in Nederland op 
de markt is geweest wijkt hiervan af, 
omdat dit apparaat geen cassette¬ 
poort heeft en zelfs de routine voor het 
werken met cassettes mist in het 
ROM. Niet erg consistent van Com¬ 
modore, maar het is niet anders. Som¬ 
mige Commodore (business) machi¬ 
nes beschikken over maar liefst twee 
cassettepoorten, waarbij device 2 als 
tweede tape kan worden gebruikt. 
Handig om gegevens te kopiëren, 
maar wel wat ouderwets. Terug naar 


leuk om te weten dat het mogelijk is en 
je kunt er natuurlijk zelf mee gaan tes¬ 
ten en proberen. 

Aan de hand van de SAVE opdracht 
geeft de computer enige aanwijzigen, 
zoals de melding dat er op PLAY en 
RECORD moet worden gedrukt. De 
Commodore kan de status van een 
tape-toets testen. Dat wil zeggen, de 
computer is in staat te kijken of er een 
willekeurige toets op de recorder is 
ingedrukt. Druk je dus op bijvoorbeeld 
FFWD of PLAY in plaats van PLAY & 
RECORD, dan denkt de Commodore 
toch, dat precies gedaan is wat wordt 
gevraagd, en zal zondermeer de rest 
van de SAVE actie uitvoeren, zonder 
succes in dat geval. Na het indrukken 
van een toets verschijnt er op het 
scherm ’WRITING TESTPGM’. Als je 
weer terug met in de READY-mode, is 
het SAVEN klaar en staat het pro¬ 
gramma op de tape. 

SAVE opnieuw 

Om de test uit te breiden, kunnen we 
nu hetzelfde programma iets wijzigen 
en nogmaals wegschrijven. Als de 
Commodore klaar is met het SAVEN 
van TESTPGM’ zal hij automatisch 
stoppen, terwijl toch beide toetsen 
j PLAY & RECORD nog zijn ingedrukt. 
We laten dit even zo, en veranderen 
regel 10 in : 
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10 REM TEST TWEE 

Daarna geven we weer de opdracht: 
SAVE "TEST2". We zien, dat nu niet 
meer de melding 'PRESS PLAY etc. 
verschijnt, maar de recorder gaat zelf 
lopen, en het programma wordt weg¬ 
gezet. Daarmee is onze SAVE-test 
voltooid. 

Je kunt nu de band terugspoelen naar 
het begin van het eerste programma, 
waarna we zullen proberen het één en 
ander terug te lezen. De tijd, die nodig 
was om een toch erg kleine listing op 
tape te zetten is relatief lang, zoals je 
zult hebben gemerkt. Dat komt, omdat 
de computer voordat de echte listing 
wordt geschreven, eerst een paar se¬ 
conden alleen de tape laat lopen voor 
het overslaan van eventuele aanloop- 
stukken etc. Vervolgens wordt een zo¬ 
genoemde ’header’ op de tape ge¬ 
schreven en daarna pas ons program¬ 
ma. De verhouding tussen tijd voor 
header en aanloop is bij korte pro¬ 
gramma’s natuurlijk irreëel, maar ver¬ 
klaart de trage werking. 


Teruglezen 

Het laden van ons programma kan op 
verschillende manieren. Om het zo 
eerlijk mogelijk te testen, maken we 
eerst het hele computergeheugen 
leeg, door de opdracht NEW in te ty¬ 
pen. Daarna controleren we of de tape 
aan het begin staat en typen vervol¬ 
gens LOAD met RETURN. 

Het scherm zal nu melden: 'PRESS 
PLAY ON TAPE 1 ’ wat we zullen op¬ 
volgen. De cassette gaat lopen en na 
enige tijd krijgen op het scherm het 
woord ’LOADING’, waarmee wordt 
aangegeven dat het (eerste) gevon¬ 
den programma op de tape wordt in¬ 
gelezen. Als deze actie klaar is, zal de 
tape stoppen. Geven we een LIST, 

dan zien we dat ons eerste testpro¬ 
gramma is ingelezen. Na de volgende 
LOAD-opdracht krijgen we weer ’loa- 
ding...’ en wordt het tweede program¬ 
ma geladen. Vrij gewoon dus, maar 
stel nu dat we meteen het tweede pro¬ 


gramma willen lezen. Hoe doen we 
dat? 

Gelukkig kunnen we aan het LOAD- 
commando een naam meegeven van 
het gezochte programma. 

In ons geval dus: 

LOAD "TEST2" , 1 

Na de melding van PRESS PLAY .., 
zien we eerst op het scherm: found 
TESTPGM en een poos later found 
TEST2 met daaronder loading. Op 
deze manier kan dus selectief een 
programma van de tape worden ge¬ 
lezen. Het gebruik van de naam is 
daarbij een handig hulpmiddel. Zeker 
ook, als je wilt weten welke program- 
matitels op een bepaalde tape staan, 
zonder ze te laden. Je geeft dan een 
naam aan het LOAD-commando mee, 
waarvan je zeker bent dat deze niet op 
de tape voorkomt. Daardoor zal de 
computer de volledige tape afzoeken 
naar deze naam, en ondertussen alle 
wel gevonden namen op het scherm 
laten zien. Dit zal voor velen een be¬ 
kend verhaal zijn, maar toch krijgen 


we op de redactie nog vrij veel vragen, 
die erop duiden dat veel lezers niet 
goed weten wat er allemaal met 
LOAD en SAVE mogelijk is. 

Header 

Om het niet allemaal eenvoudig te 
houden, hier een paar woorden over 
de inhoud van de ’header’ op een cas¬ 
setteband. Deze header bestaat uit 
een serie gegevens, die zeer nuttig 
zijn voor de interne verwerking van de 
computer. Voor ons echter ook aar¬ 
dige kennis. Er bestaan twee soorten 
headers, één specifiek voor program¬ 
ma’s, de ander voor databestanden. 
De headers bestaan beide uit 256 by¬ 
tes, waarbij alleen de eerste bytes be¬ 
langrijk zijn. 

Een programma-header bevat de vol¬ 
gende bytes: 

1 ID1 voor prg 4 voor DATA 
2-3 STARTRAM startadres van 


programma ($803) 

4-5 EINDEinde programma in RAM 
6-256Programma naam met 
rest spaties. 

Een dataheader ziet er nagenoeg het¬ 
zelfde uit, alleen de ID is verschillend 
en uiteraard start- en eindadressen. 
De machinetaal-freaks kunnen de 
header afzonderlijk bekijken door de 
routine die specifiek zoekt naar de 
header en deze vervolgens leest apart 
te activeren in machinetaal. Deze rou¬ 
tine begint op adres $F72C voor de C- 
64. 

Bepaalde spelletjes gebruiken de by¬ 
tes van deze header om al een stuk uit 
te voeren programma in te zetten, 
waardoor bijvoorbeeld via een inter- 
rupt muziek en tekst tijdens het laden 
op het beeld en SID waar te nemen 
valt. In het bestek van deze cursus 
voert uitleg hierover veel te ver. 

Databestanden 

Het werken met cassettetape en data¬ 
bestanden is niet veel anders, dan de 
werkwijze met Basic-programma’s en 
tape. Dat wil zeggen wat betreft PLAY 
& RECORD, terugspoelen en head¬ 
ers. 

We maken bij het wegschrijven van 
gegevens echter geen gebruik van de 
SAVE- en LOAD-opdrachten, omdat 
we wel met een andere manier van 
schrijven en lezen bezig zijn. De wijze 
waarop DATA en tape met elkaar 
communiceren kun je wat dit betreft 
het beste vergelijken met de manier 
waarop de Commodore met het vi¬ 
deoscherm (en toetsenbord) omgaat. 
Het keybord en scherm van een com¬ 
puter kun je samen beschouwen als 
was het één apparaat (device). Dat 
komt omdat je op een toetsenbord 
niets als output kunt krijgen, terwijl er 
op een scherm weinig in te toetsen 
valt. Samen vormen ze echter een 
compleet apparaat waarmee in- en 
uitvoer kan worden gerealiseerd. 

We weten allemaal, dat met hulp van 
de opdrachten PRINT, GET en INPUT 
van alles op het scherm kan worden 
gezet en vanaf het toetsenbord kan 
worden ingelezen. Welnu, de manier 
waarop dit met externe apparaten als 
cassetterecorder en diskdrive wordt 
verzorgd is in feite niet anders. Het 
enige verschil is het device-nummer 
dat voor ieder apparaat, dus ook het 
scherm en keybord, anders is. 

Omdat er in de meeste gevallen com¬ 
municatie tussen computer en VDU 
(scherm/keybord) plaatsvindt, heeft 
men dit device als default genomen, 
en alle print-opdrachten gaan daarom 
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automatisch naar device nummer 3, 
wat het nummer is van het video¬ 
scherm. Voor alle andere apparaten 
moeten we in ons programma een a- 
part device aanspreken, en een 1/0 
kanaal openen. Dit klinkt een heel 
stuk ingewikkelder dan het in werke¬ 
lijkheid is, maar je moet wel eerst we¬ 
ten hoe het allemaal precies in z’n 
werk gaat. Zeker omdat het aantal ka¬ 
nalen wat op een bepaald moment 
open kan zijn, niet bij één blijft. In to¬ 
taal kunnen er 16 kanalen gelijktijdig 
geopend zijn, die alle 16 naar verschil¬ 
lende devices kunnen wijzen. Zo ken¬ 
nen we voor de printer (device 4) een 
kanaal, terwijl er ook meerdere kana¬ 
len open kunnen zijn voor cassette en 
diskdrive. Om dit allemaal uit elkaar te 
kunnen houden, geven we bij het ope¬ 
nen ieder kanaal een apart nummer of 
adres. 

Met hulp van dit ’Logical Address’ ge¬ 
ven we later aan naar welk kanaal een 
bepaalde variabele moet worden ge¬ 
print. Het werken met deze kanaal- 
adressen is een goede manier om de 
verschillende kanalen uit elkaar te 
kunnen houden. 

De algemene werkwijze van het ver¬ 
sturen van berichten c.q. data naar 
een extern apparaat is als volgt: 


OPEN file, met kanaalnummer, appa- 
raatnummer en secundair adres. 
PRINT kanaalnummer,variabelen 
CLOSE kanaalnummer 

Het secundaire adres dient bij tape- 
communicatie om aan te geven of er 


naar het bestand moet worden ge¬ 
schreven of teruggelezen. Bij tapege- 
bruik kennen we daarom slechts twee 
secundaire adresnummers. Het getal 
1 wordt gebruikt om data te schrijven, 
terwijl O als SA aangeeft, dat we willen 
teruglezen van een bestand. 

Schrijven 

Laten we maar eens een klein pro¬ 
gramma schrijven, waarmee we een 
serie gegevens naarde cassette weg¬ 
schrijven. 

10 REM MAKEN DATA BESTAND 
OP TAPE 

20 REM SEQUENTIEEL BESTAND 
30 REM MET NUMERIEKE 
VARIABELE 
90 

100 REM OPENEN KANAAL 
110 OPEN 1,1,1,"TEST" :REM 
OPENEN KANAAL=1, 
DEVICE=1, SA=1(WRITE), 
TEST=naam 
120 FOR I = 1 TO 256 
130 PRINT I : REM PRINT OP 
SCHERM 

140 PRINT#1,I :REM PRINT NAAR 
KANAAL 1 
150 NEXTI 


160 CLOSE 1 :REM SLUITEN 
KANAAL 1 
200 END 

Dit programma schrijft zowel op het 
scherm als naar de cassette 256 ge¬ 
tallen weg. De naam van het DATA- 


bestand op de tape is in dit geval 
TEST’. Na de l-lus wordt in regel 160 
het kanaal naar tape nummer 1 weer 
afgesloten. Naast de OPEN opdracht 
in regel 110 vinden we in regel 140 : 
PRINT#1,I. Deze regel, die volledig 
moet worden ingetypt, dus geen 
vraagteken (?) gebruiken voor het 
woord PRINT !!!, geeft aan dat de va¬ 
riabele I moet worden geprint naar ka¬ 
naal 1, en niet naar het scherm. Zorg 
ervoor, dat de cassette geladen is met 
een nieuwe tape, en ook aan het be¬ 
gin staat. Na RUN krijg je al snel de 
melding op het scherm 'PRESS PLAY 
& RECORD ON TAPE 1’, voor zover 
er inmiddels geen toetsen op de re¬ 
corder waren ingedrukt. Na de CLO- 
SE-opdracht stopt de recorder auto¬ 
matisch. Dan verschijnt ook READY 
op het scherm, om aan te geven, dat 
het programma is afgerond. 

Lezen 

Nadat we het voorgaande met succes 
hebben uitgevoerd, kunnen we over¬ 
gaan tot het lezen van de wegge¬ 
schreven getallen in file TEST. Spoel 
de cassette terug, en gebruik het vol¬ 
gende programma om de wegge¬ 
schreven gegevens weer te kunnen 
inlezen: 

10 REM LEZEN DATA BESTAND 
VAN TAPE 

20 REM SEQUENTIEEL BESTAND 
30 REM GEBRUIK NUMERIEKE 
VAR. 

90 

100 REM OPENEN KANAAL 
110 OPEN 1,1,0,"TEST" :REM 
OPENEN KANAAL=1, 
DEVICE=1, SA=0(READ), 
TEST=naam 

120 INPUT#1,I :REM LEES VAN 
KANAAL 1 
150 PRINT I : REM ZET GELEZEN 
GETAL OP SCHERM 
160 IF ST = 0 THEN 120 
170 CLOSE 1 :REM SLUITEN 
KANAAL 1 
200 END 

Dit programma ziet er een beetje an¬ 
ders uit dan het voorgaande. Het 
OPEN zetten van het kanaal naar de 
tape verschilt in zoverre, dat het SA 
(secundaire adres) gewijzigd is in 0, 
wat aangeeft dat het bestand gebruikt 
wordt om uit te lezen. Zou hier op dit 
ogenblik een 1 gestaan hebben, dan 
was de melding PLAY & RECORD 
verschenen en zou ons vorige data¬ 
bestand zijn overschreven, althans de 
I header zou vernietigd zijn en de weg- 
geschreven data zouden daardoor 
nooit meer aangesproken kunnen 

worden. Het SA is dus bij tape-werk 
erg belangrijk. 
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In regel 120 treffen we nu een INPUT- 
opdracht aan, net als bij PRINT ge¬ 
volgd door #1. De Basic opdracht is 
geen combinatie van INPUT en #1, 
maar luidt echt INPUT#, met daarach¬ 
ter het betreffende filekanaal. De ge¬ 
lezen waarde, in dit geval numeriek, 
wordt weggezet in de variabele I, 
waarna deze op het scherm geprint 
wordt. INPUT houdt automatisch op te 
lezen bij het vinden van een ’carriage 
return’ (CHR$(13)). Net als bij een 
normale PRINT opdracht hebben we 
een CHR$(13) weggeschreven bij het 
vorige programma, omdat we steeds 
een PRINT#1 hebben uitgevoerd zon¬ 
der als achtervoegsel een komma of 
puntkomma te hebben gebruikt. Auto¬ 
matisch wordt dan ook naar disk en 
tape een carriage return geschreven. 
Vandaar dat de INPUT nu keurig 
steeds één getal naar binnen leest en 
op het scherm zet. 

Status 

Om te kunnen bekijken waar het einde 
van het op tape aanwezige bestand 
TEST zich bevindt, hebben we in ons 
geval verschillende mogelijkheden. 
We weten bijvoorbeeld, dat er precies 
256 getallen op de tape staan. Daar¬ 
om zouden we hier voor het inlezen 
ook een lus kunnen gebruiken. Maar 
het zal zeker niet altijd het geval zijn, 
dat we vooraf het aantal gegevens 
weten, dat in een database zit. Boven¬ 
dien hadden we bijvoorbeeld als eind- 
getal een negatief getal kunnen weg¬ 
schrijven en tijdens het inlezen iedere 
keer het gelezen getal hebben kunnen 
testen op het al of niet kleiner dan nul 
zijn. Maar daarmee beperken we ons 
tot het werken met uitsluitend positie¬ 
ve getallen, ook geen oplossing dus. 
Nu heeft de tape (en disk) gelukkig 
zelf een oplossing. En dat is de status 
van de file/tapeunit. Deze STatus is 
één van de vaste, ingebouwde varia¬ 
belen in de Commodore. Het is een 
variabele die door de programmeur al¬ 
leen kan worden gelezen. Een op¬ 
dracht als: 

20 LET ST = 120 

Dit zal dan ook altijd in een ’syntax 
error’ eindigen. We kunnen echter wel 
de waarde uit ST lezen en gebruiken. 
ST wordt door de computer automa¬ 
tisch gezet, terwijl de tests op de ver¬ 
schillende waardes door de program¬ 
meur moeten worden gedaan. In de 
meeste gevallen is het zo, dat zolang j 
ST een waarde heeft van 0, is alles I 
met het betreffende bestand in orde. I 
Zodra ST ongelijk is aan 0 is er iets j 
mis. Dat is hier alles wat onthouden ' 
moet worden, hoewel ST in totaal 8 j 


bits bezit, die ieder voor zich een be¬ 
paalde betekenis hebben, waaraan 
gevorderde Basic-ers kunnen zien 
wat er precies mis is met een file of bij¬ 
voorbeeld de printer. ST heeft dus al¬ 
tijd waardes die een exponent zijn van 
2, bitsgewijs. 

In ons lees-programma testen we 
slechts of ST nog altijd 0 is. Zolang dit 
het geval is, is alles in orde en kunnen 
we terug naar regel 120 om het vol¬ 
gende getal te kunnen lezen. 

Bereikt de leeskop het einde van het 
bestand, waar door de Commodore 
automatisch een eindblok geschre¬ 
ven is tijdens het wegzetten van de 
data, dan wordt de variabele ST auto¬ 
matisch op een getal anders dan nul 
gezet, waardoor we in regel 170 het 
file afsluiten door CLOSE en ook de 
cassette stopt. Zoals je op het scherm 
kunt zien, zijn alle getallen keurig in- 
gelzen van de tape. 


Strings 



rieke variabele, maar met hulp van 
strings. Daartoe kun je het vorige pro¬ 
gramma met wat kleine wijzigingen 
gebruiken: 

10 REM LEZEN DATA BESTAND 
VAN TAPE 

20 REM SEQUENTIEEL BESTAND 
30 REM GEBRUIK STRINGS 
90 

100 REM OPENEN KANAAL 
110 OPEN 1,1,0,"TEST" :REM 
OPENEN KANAAL=1, 
DEVICE=1, SA=0(READ), 
TEST=naam 

120 INPUT#1,A$ :REM LEES VAN 
KANAAL 1 

150 PRINT A$ : REM ZET 
GELEZEN GETAL OP 
SCHERM 

160 IF ST = 0 THEN 120 
170 CLOSE 1 :REM SLUITEN 
KANAAL 1 
200 END 


Zoals je ziet, zijn de numerieke varia¬ 
belen I vervangen door de stringvaria- 
bele A$. Ook op het scherm is dit te 
zien, door de andere layout van de ge¬ 
tallen, die nu immers als strings wor¬ 
den beschouwd, waardoor er geen 
ruimte wordt vrijgehouden voor een 
plus- of min-teken etcetera. Verder is 
er nog weinig veranderd. Maar we zul¬ 
len nu een ander bestand naar de ta¬ 
pe zetten, waarbij er ook alfanumerie- 
ken worden weggeschreven naar be¬ 
stand TEST. Daarvoor gebruiken we 
de volgende variant op onze listing: 

10 REM MAKEN DATA BESTAND 
OP TAPE 

20 REM SEQUENTIEEL BESTAND 
30 REM STRINGS EN 
NUMERIEKEN 
90 

100 REM OPENEN KANAAL 
110 OPEN 1,1,1,"TEST" :REM 
OPENEN KANAAL=1, 
DEVICE=1, SA=1(WRITE), 
TEST=naam 
120 FOR I = 1 TO 256 
125 A$ = CHR$(I) 

130 PRINT I, A$ : REM PRINT OP 
SCHERM 

140 PRINT#1,I, A$:REM PRINT 
NAAR KANAAL 1 
150 NEXTI 

160 CLOSE 1 :REM SLUITEN 
KANAAL 1 
200 END 

Dit programma schrijft 2 keer zoveel 
gegevens naar de tape. Niet alleen de 
lus-teller, maar ook de ASCII-waarde 
als karakter wordt naar de tape ge¬ 
schreven. Daarmee zijn we zeker van 
een databestand, wat een mixture is 
van numerieke en string-variabelen. 
Om dit bestand terug te lezen moeten 
we het laatste LEES-programma ge¬ 
bruiken, de listing die dus werkt met 
strings, want als we de numerieke ver¬ 
sie hierop loslaten, dan krijgen we erg 
snel de foutmelding 'DATA MIS¬ 
MATCH ERROR’, waarmee wordt 
aangeduid, dat er numerieke gege¬ 
vens werden verwacht en een alfa- 
karakter werd gelezen, die niet kan 
worden verwerkt. 


Protocol 

Bij het werken met databestanden is 
het in alle gevallen beter om uitslui¬ 
tend met stringvariabelen de tape te 
beschrijven. Hoewel er ruimtebespa- 
rend kan worden gewerkt met het toe¬ 
passen van numerieke variabelen is 
de kans op lees- en schrijffouten ho¬ 
ger, terwijl ook de gebruiksmogelijk¬ 
heden van numerieke data uiteraard 
geringer zijn. Het is daarom goed als 
regel alleen met stringvariabelen te 
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werken in combinatie met data-be- 
standen. 

Als laatste voorbeeld geven we nu 
nog een listing waarbij het GET# com¬ 
mando is toegepast: 

10 REM LEZEN DATA BESTAND 
VAN TAPE 

20 REM SEQUENTIEEL BESTAND 
30 REM STRINGVARIABELEN 
40 REM MET HULP VAN GET# 
OPDRACHT 
90 

100 REM OPENEN KANAAL 
110 OPEN 1,1 ,0,'TEST" :REM 
OPENEN KANAAL=1, 
DEVICE=1,SA=0(READ), 
TEST=naam 

120 GET#1,A$ :REM LEES 1 

KARAKTER VAN KANAAL 1 
150 PRINT A$;: REM ZET 
GELEZEN GETAL OP 
SCHERM 

160 IF ST = 0 THEN 120 
170 CLOSE 1 :REM SLUITEN 
KANAAL 1 
200 END 


Ook deze listing wijkt weinig af van de 
vorige. Let alleen op de puntkomma 


achter het PRINT-commando in regel 
150. Daardoor worden alle karakters 
achter elkaar op het scherm gezet. 

De 'RETURN’, die ook van de tape 
wordt gelezen, zorgt daarbij op de 
juiste plaats voor een nieuwe regel. 
GET# wordt vaak gebruikt als er geen 
enkel gegeven bestaat over de manier 
waarop de data in het bestand is op¬ 
gebouwd. Natuurlijk gaat het werken 
met GET# veel langzamer, omdat 
voor ieder karakter op de band een 
apart GET# moet worden uitgevoerd, 
kompleet met de GOTO en IF tests et- 
cetera. Ook strings die langer zijn dan 
de INPUT#-opdracht toelaat (80 te¬ 
kens) kunnen met hulp van GET# 
worden gelezen en later worden ver¬ 
werkt tot records met verschillende 
velden of een array enzovoort. 

Aan het werk 

De gegevens die in dit artikel zijn ver¬ 
werkt, zullen voor de meesten onder 
ons voldoende aanleiding zijn om de 
manier waarop de Commodore com¬ 
puter werkt met cassetterecorder en 
tape te kunnen begrijpen. Hoewel de 
werking van het STatus-byte niet vol¬ 
ledig is vermeld, kunnen aan de hand 


van de gegeven voorbeelden vol¬ 
doende conclusies worden getrokken 
om ook eigen toepassingen op tape 
weg te schrijven en vervolgens weer 
te lezen. Natuurlijk kunnen meerdere 
files op één tape worden weggeschre¬ 
ven. Het is daarbij echter nooit moge¬ 
lijk om meerdere bestanden gelijktij¬ 
dig op één tape te openenen. Dit heeft 
simpelweg te maken met de fisieke ei¬ 
genschappen van een cassette. Door 
de sequentiele manier van lezen kan 
er nooit meer dan één bestand ge¬ 
lijktijdig langs de lees/schrijfkop van 
de recorder gaan, waardoor we deze 
beperking ontmoeten. 

Bij gebruik van diskdrives wordt dit na¬ 
tuurlijk anders. De volgende keer zul¬ 
len we verder gaan, door ook voor dis- 
kkettes dezelde tests en voorbeelden 
te implementeren. Daarmee kan ook 
ons database programma worden 
afgesloten. 

Succes met je eigen experimenten. 


Jan Bodzinga 


Kleine advertenties 


C-64 en diskdrive 
C-64, d. drive. 1541, datarec, 
lichtpen, Geos 1. 3, lectuur, 
software, eet. Bfr14500 Te¬ 
vens printer Star SG-10C. Tel. 
03-88770118 (BEL) 

Te koop div bladen 
Computer Gazette, HCC, div. 
ƒ 2.-/st Databecker 64 tips en 
tricks ƒ 10,-, multi plan ƒ 10,- 
Zaks pro Z80 ƒ 15,- final cart- 
ridge2 ƒ 40,- tel. 08330-15233 

Te koop C-64 

c-64, d. ree, boeken, software, 
joystick, rasterblok ƒ 700,- tel. 
052-35-9447 (BEL) 

JANE aangeboden 
Jane voor C-128, handl, best 
tekstver. dbase, ƒ 150. - tev 
KCS speedsaver 64, handl, 


ƒ 30,- tel. 04765-2922 na 
19.00 uur. 

DPS 1101 printer te koop 
Commodore daisywheel prin¬ 
ter DPS 1101 ƒ 3 5,- silver- 
reed wheel pr S400 ƒ 385,-. 
com plotter 1520 ƒ 115,-final 
cartidge C64 ƒ 50,- tel. 03487- 
1388 

Ge vraagt A strologie 
Astrologie prog. voor C-64. tel. 
015-570622. 

Ruilen Software 
Org. software o. a. platine 64, 
fortran cp/m, cobol, superba¬ 
se, e. a. tel. 043-477468 na 
1900 uur 

Scholier zoekt printer 

voor normaal A4 papier, tel. 

01842-1502 


Programma’s gevraagt 
Burroughs Basic, program¬ 
ma’s voor deze comp. Peter, 
kanaalln 55, 3690 bree (BEL) 

Gevraagd printer 

Een printer voor C-64. ƒ 275,- 

.tel.01110-13779 

Diskdrive gezocht 

D. drive voor C-64, tel. 03480- 

17299 

Gezocht handleiding 
Ned. handl van expert-cartrid- 
ge ESM, tel. 09-32-03- 
3216883 na 1800 uur 

Contact Amiga 

Amiga:(int) cont. gevraagd, tel. 

0032-55314755 


Lichtshow gezocht 
Progr. voor aansturing licht¬ 
show, tel. 080-600184 

MPS 802 printer te koop 
Printer, handl, lint en Nederl. 
tekstverwerkingpr. TASWORD 
(80 Koloms) ƒ 450,- tel. 
03473-71751 na 17.00 uur. 


Voor uw opgave: 
Stuur kaartje met uw 
tekst (max. 4 regels 
naar PB 112, 1260 AC 
Blaricum onder ver¬ 
melding "Kleine ad¬ 
vertenties CIA". 
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Ook dit keer weer berichter uit de wereld van ongevaarlijke computerkrakers en knap¬ 
pe demomakers door Darius Heydarpour. 

Nieuws uit de demowereld 

V anaf nu zal ik jullie regelmatig op de hoogte houden van alle nieuwtjes 
uit de demowereld. De meeste informatie zal gaan in de vorm van korte 
berichtjes over vorm en kwaliteit van de geleverde Demo’s. 


De demo’s die door de diverse Crack¬ 
ers (spelletjesmakers) en Demoma¬ 
kers worden geprogrammeerd op de 
Commodore 64, uit pure hobby, zijn 
soms van zo’n goede kwaliteit dat de 
diverse softwarehuizen er zich nog 
moeilijk aan kunnen meten. 

1001 Crew 

Een groep die vooral kwaliteits 
demo’s uitbrengt is The 1001 Crew’. 
Zij waren de eerste die de welbeken¬ 
de ’scrollende tekst’ over het gehele 
scherm lieten lopen. 

Dus dwars door de ’zij-border’.Door 
een stukje uit de zij-border te 'hakken’ 
blijft de sprite,die normaal niet te zien 
is, zichtbaar. Toen zij er achter kwa¬ 
men, dat de gehele .'border’ wegge¬ 
haald kan worden programmeerden 
zij één van de opmerkelijkste pro¬ 
gramma’s uit de geschiedenis van de 
Commodore 64: ESCOS (wat staat 
voor Expanded Screen COnstruction 
Set). Het produceert plaatjes die het 
gehele beeldscherm omvatten. Bor¬ 
ders bestaan simpelweg niet meer. 
Door dit programma, wat al in 1986 is 
uitgebracht, is The 1001 Crew’ een 


van de bekendste en zeker ook popu¬ 
lairste groepen van de (Commodore 
64) wereld. 

Future Projects 

Een groep die tevens van een grote 
populariteit mag genieten is ’Future 
Projects’. Een van de bekendste pro¬ 
gramma’s van hun hand is ’Future 
Writer'. Dit programma is een ’Letter- 
writer’. Dat is een programma waarin 
de gebruiker een brief kan typen en op 
disk of tape kan bewaren. Als men 
echter de brief weer RUNt ziet men 
precies wat de schrijver ervan heeft 
ingetypt. De cursor schrijft en verbe¬ 
terd eventuele fouten. Hun nieuwste 
letterwriter die (hoe kon het ook an¬ 
ders) ’Future Writer II’ heet, is de 
meest geavanceerde, die er op dit 
moment is. Men heeft de keuze uit 
een aantal 'Martin Galway’ muziekjes 
en karaktersets. 

Men kan de brief op schijf bewaren en 
hem eventueel later afmaken.Ook is 
het mogelijk om tijdens het schrijven 
van een brief de hele ingetypte tekst 
nog eens door te nemen en deze te 
onderbreken om vanaf dat punt een 


andere tekst te typen. Future Writer II 
heeft nog vele andere aspecten die 
deze letterwriter een uniek program¬ 
ma maken. 


Psychos 

De demo ’Psychotic 3demo’ van de 
’Psychos’ mag ook uniek genoemd 
worden. Deze demo bewijst dat er nog 
creativiteit bestaat in demo-wereld. 
Na een prachtige tekening van een fu¬ 
turistische motor begeleidt door de 
welbekende scrollende tekst en een 
muziekje worden we in een prachtig 
draaiende ’kleurentunnel’ gegooid. 
Daarna is het de beurt aan de gebrui¬ 
ker om de joystick ter hand te nemen 
en een 3 dimensionaal voorwerp te la¬ 
ten draaien.De scrollende tekst die 
onder dit hele gebeuren loopt kan ook 
nog aangepast worden met de + en - 
toets en kan zelfs terug scrollen! 

De demo wordt beëindigt met een 
soort filmtekst. 


D.H. 


Op uw C64/C128 of MS DOS ma¬ 
chine op EENVOUDIGE wijze uw 
KAS, BANK en GIRO bijhouden 
met: f 

« e cW tS 




ƒ 99,00 


(incl. BTW) 
franco 


Beurs 64 is een menugestuurd 
programma. 

Zie: Commodore Info 1/87 


MARVELD COMPUTERFRAMES 


Voor C-64 en 
MSX computers 


ƒ 169,- 

Incl. btw 
franko 



MARVELD printersteunen 
Voor de prijs hoeft 
u het niet te laten: 
slechts ƒ 29,95 incl. BTW. 
(excl. verzendkosten) 


COMPUTERTAFELS 

BONDWELL PC’S 

3 jaar GARANTIE 


Marveld Computing, Berkenlaan 57, Malden. Tel. 080-583522 of 08851 -1 7583 
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Infograrnes brengt een schitterend vervolg-avontuur uit dat gebaseerd is op een strip¬ 
verhaal, en daarvan ook de mooie graphics heeft geleend. Het wordt geleverd voor 
voor diverse computers, zoals de Commodore 64 en 128, de Commodore Amiga, MS- 
DOS, Atari ST en MSX-2. 


Stripverhaal/adventure 


Kinderen van de wind 


H et computer-avontuur ‘Kinderen 
van de wind’ begint waar het 
mooie (bijgeleverde) stripboek ein¬ 
digt. Een groep mensen, door het 
noodlot samengebracht, gaat op zoek 
naar bewijsstukken om de hoofdfiguur 
haar identiteit terug te bezorgen. Via 
schitterende plaatjes wordt de speler 
meegesleept van de Engelse en 
Franse kust tot de binnenlanden van 
Afrika waar uiteindelijk een tipje van 
de sluier wordt opgelicht. 


ze verwisseling het kind van de ene 
gruwelijke ervaring in de andere zal 
storten was door het achtjarige meisje 
niet voorzien. Door zeer realistische 
plaatjes in het boek, maar ook in het 
computer-spel, spelen we vanaf haar 
zestiende jaar mee in haar speurtocht 
naar de bewijzen van haar ware iden¬ 
titeit. Seks en geweld zijn regelmatig 
terugkerende onderdelen van haar 
avontuur. Maar ook humor is in dit ver¬ 
haal aanwezig. 


Het avonturen-spel steekt zich in 
een nieuw jasje. Geen richtingen 
meer aangeven of spulletjes op¬ 
pakken en plaatsen. Geen 
vragen meer stellen of raadsels 
oplossen. Deze ‘adventure ’ 
ontrolt zich als een prachtig strip¬ 
verhaal. 


Verwisseling voor de grap 
Alle problemen beginnen als de (ade¬ 
lijke) hoofrolspeelster acht jaar oud is. 


Negen situaties vol plaatjes 
Via eenvoudige cursor-bewegingen 
laten we de medespelers aan het 



Cn dfc&Jond. 


Nrcjrj niet, l^beM'ikmoet me ot 
det-fmieri nxi mijn dochten; Jij zit ind? 
ander? koeU. 


lte,eh 


Zm/ijq.bmldlerne'idl 
A mij p# preken 
je kU ojuvtefy 1 wordlt 


de {foei ankMw met' 
een In de koeU, we M'ü'rk ken 1 




Om haar vader in de war te brengen woord. Een verkeerde keus uit de 
ruilt ze voor de grap met een inwo- voorstellen die de verschillende spe¬ 
nend weesmeisje van kleding. Dat de- Iers maken kan leiden tot een slechte 
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afloop van deze adventure. Zo zal de 
beginnende speler levenslang in een 
gevangenis kunnen belanden, ver¬ 
drinken, worden gefusilleerd, de rest 
van zijn leven slijten in een saai Frans 
plaatsje, of worden aangeval¬ 
len en verscheurd door een 
woest luipaard in Afrika. 

In negen situatieplaatjes bele¬ 
ven we de reis van onze met¬ 
gezellen. leder plaatje is een 
kortverhaal, met vele ingepro¬ 
jecteerde kleinere plaatjes. 

Elk van de negen hoofdplaat¬ 
jes kan aan het begin op een 
apart schijfje worden opgeno¬ 
men om na een fatale beslis¬ 
sing niet steeds het hele ver¬ 
haal opnieuw te hoeven begin¬ 
nen. 

Raak geschoten 
Infogrames uit Frankrijk lijkt 
met deze vervolg-adventure 
raak te hebben geschoten. 
Ondanks de niet misselijke prijs voor 
dit spel vliegen ze de computerwinkels 
uit. Dat voor dit spel gebruik is ge¬ 
maakt van tekeningen en het verhaal 
van de bekende striptekenaar Fran- 
cois Bourgeon uit Frankrijk zal zeker 
een reden voor het grote succes zijn. 
Vaak is een zogenaamde adventure 


niet te genieten vanwege slechte 
plaatjes of een knullig verhaal. Dit pro¬ 
gramma heeft zowel uitstekende 
plaatjes als een mooi verhaal. De be¬ 
lofte dat dit avonturenspel de eerste is 


uit een reeks van 5 verhalen die alle¬ 
maal als computerspel zullen uitko¬ 
men doet de liefhebber van adventu- 
res beslist al watertanden. De bege¬ 
leidende muziek voor de MSX is van 
goede kwaliteit, de Commodore had 
helaas slechts één wijsje. Wordt de 
muziek voor de verschillende versies 


nog wat beter, dan zullen ook de vol¬ 
gende afleveringen van ‘Kinderen van 
de wind’ zo’n succes worden als deze 
eerste aflevering. 

Rond honderd gulden 

De adventure ‘Kinderen van 
de wind’ is verkrijgbaar voor 
80 gulden voor Commodore 
64 en 100 gulden betalen de 
bezitters van Atari ST, IBM 
PC en MSX2 (op diskette). 
De nogal groot uitgevallen 
verpakking was noodzakelijk 
om het stripverhaal te herber¬ 
gen. Het spel is ook op cas¬ 
sette verkrijgbaar voor Com¬ 
modore 64 maar ondanks de 
tien gulden besparing moet 
dat worden afgeraden. Het 
laden en herladen van zo’n 
omvangrijk programma vergt 
wel heel erg veel geduld van 
computer-avonturiers. 
Kinderen van de wind werd 
uitgebracht door Ariola, dat inmiddels 
de activiteiten heeft gestaakt, Home- 
soft heeft de distributie overgenomen. 


Rob Timmer 
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Print-out 


Met o.a. Data-spin Amiga - Shoot’em - 

Yathzee - Klok, schuinschrift - Wiebel 


Syntax Checksum 


mm 


Inhoud van dit listingdeel 

Data-spin Amiga 33 Libelle-Animatie 45 

Shoot’em 36 Klok, schuinschrift 47 

Yathzee 38 Wiebel 49 

Telex-writer 41 Piccolo C-16 50 

Digi-ontwerper 43 City-Destroyer 54 




In ons vorige nummer schreef ik: wie stuurt ons het 
eerste AMIGA programma, voor dat het blad bij de 
drukker vandaan was, lag het eerste programma bij 
ons in de bus. In deze PRINT-OUT rubriek daarom 
voor (bijna) alle commodore computers een of meer¬ 
dere listings. Elders in dit nummer staat een oproep 
om mee te doen aan onze internationale prijsvraag. 
Hier zijn vele mooie prijzen mee te winnen. Dus heeft 
u apparatuur nodig, of mischien gebrek aan software, 
stuur uw eigengemaakte programma’s in en wie weet. 


Cii'WïWW 


©U tikt het RUN commando in. Mocht het programma de 
boodschap ’Fout in dataregels!’ geven dan heeft u een fout 
bij het overtikken gemaakt. Herstel de fout en SAVE de 
verbeterde versie. Mocht het programma met de boodschap 
’data is weggezet checksum testten met sys komen dan 
is tot dusver alles goed. Het programma is nu in een stukje 
machinetaalgeheugen gezet. Als u het NEW commando 
geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic geschreven. 
Als u een programma heeft overgetikt SAVE het eerst, mocht er 
iets mis gaan dan hoeft niet de gehele listing opnieuw te gaan 
intikken. Als u nu een programma op fouten wilt gaan controle¬ 
ren dan kunt u dat in het geheugen laden (wel eerst het 
checksumprogramma hebben gerund). Vervolgens typt u zon¬ 
der het programma te runnen de opdracht sys 49152 (C-64) of 
sys 1536 (C-16 en Plus/4) in. 

Als alles goed is gegaan loopt er nu een rij regelnummers over 
het scherm met getallen erachter. Dezelfde lijst staat ook achter 
elk door ons geplaatste programma. Wijkt nu een nummer 
achter een regelnummer af van het nummer dat in het blad staat 
dan heeft u in die regel iets anders ingetikt dan er in het blad 
stond. U kunt de stroom getallen d.m.v. de RUN/STOP toets 
pauzeren en weer vervolgen met de F1 of F7 toets. Het is 
uitermate belangrijk dat u goed met dit programma overweg 
kunt en mocht U het niet goed werkend krijgen bel dan gerust 
even met onze listingservice telefoonlijn. 




Rob Goudriaan 


Het overtikken van een listing kan een heel karwei zijn en als u 
een beetje normaal mens bent dan maakt u daarin beslist een 
aantal fouten. Nu is niets moeilijker om de fouten uit je eigen 
werk te halen. Al geruime tijd geleden heeft Jan Bodzinga 
hiervoor een zgn. Checksum-programma geschreven. Om de 
vele nieuwe lezers van Commodore-lnfo te helpen volgt hieron¬ 
der nog een keer een volledige uitlegh over de werking van dit 
programma, waarmee het, hoe vreemd dat misschien ook lijkt, 
echt mogelijk is om met behulp van dit programma de fouten in 
elke door ons geplaatste listing op te sporen. 

Hiervoor gaat u als volgt te werk: 

O U tikt de listing heel zorgvuldig over en SAVEt hem voordat u 
het programma RUNt op een diskette of een cassette. 








1 rem xxxx******xt*x**xx*x**4***x*x** 
X* 

2 rem basic loader «SYNTAX.CHECKSUM" 

3 rem na de commando’s 'run* en *new* 

4 rem blijft dit programma in het ge- 

5 rem heugen, laad het te testen pro— 

6 rem gramma en tik daarna sys 49132. 

7 rem XXXXXXSXXXXXXXXXXXXXXXXXXXXXXXX 
X* 

10 1*49152 srem beginadres 
20 reada:ifa<0then40:rem data ingeleze 
n 

30 pokei , ai i»i + i : b**b+a* goto20 
40 if b< >16844thenprint"CCLR-HOME3fout 
in dataregels!«3b*0:end 
50 poke49184,14Bspoke49185,192 
55 i*49300 

60 read a: ifa<0then80 
70 pokei,a:b=a+bsi=i+lsgoto60 
80 if b< >20068thenprint"CCLR-HQMElfout 
in dataregels! (vanaf regel 240)"s 
b»0s end 

90 pr infdata is weggezet" 

95 pr int"checksum testen met sys49152" 
100 data 163,43,166,44,133,163,134,164, 
169, 147 

110 data 32,210,233,160,0,240,3,32,73, 
192 

120 data 32,73,192,208,1,96,32,225,255, 
208 

130 o5 ta 3 » 76 > 1 16 ’ 164 > 32,81,192,32,73,1 


S;i iM 


regel 6 
regel 7 
regel 10 
regel 20 
regel 30 
regel 40 
regel 50 
regel 55 
regel 60 
regel 70 
regel BO 
regel 90 
regel 95 
regel 100 
regel 110 
regel 120 
regel 130 
regel 140 
regel 150 
regel 160 
regel 170 
regel 180 
regel 190 
regel 200 
regel 210 
regel 220 
regel 230 
regel 240 
regel 250 
regel 260 
regel 270 

ready. 
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syntaxehecksum 1isttestprogramma 

regel 1 249 

regel 2 84 

regel 3 125 

regel 4 2 

regel 5 246 




iipiiiiiiiis 

1 






ij”.:; 


: : 








■ÉSÏi;;rfeffr C ' 





























ïsssis» 









































































































































































PRINT-OUT • PRINT-OUT • PRINT-OUT PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT 



(«•y.-'vXv'v 


wl 




®l®f| 

Mé» 


Illiil 


LOCATE 15,50:PRINT "(93 EINDE” 

LOCAIE 18,33.-PRINT "TOETS UW KEUZE (0-9) 
GOSUB kevcontroi 


Dit eerste Amiga programma is ingezonden door P.J. 
Bokma uit Heerenveen. Data -Spin voor de Amiga is een 
eenvoudig doch overzichtelijke en gebruiksvriendelijke 
database voor vele toepassingen. Om er mee te werken 
is in principe geen manuel benodigd. Derhalve alleen een 
paar algemene zaken: Na het, voor de eerste keer, ops¬ 
tarten moet u iets invoeren. Omdat er niets op disk staat 
en ook niets in het geheugen aanwezig is, moet u eerst 
kiezen voor "O" (vanuit het hoofdmenu). U komt dan in 
een subdirectory: U kiest voor ’3’ (nieuwe file). Het pro¬ 
gramma vraagt dan hoeveel velden u wilt definiren (2- 
9). Gesteld u wilt een adressenbestand: U heeft dan mi¬ 
nimaal 5 velden nodig: Naam, Adres, Postcode, Plaats en 
Telefoon. U toetst dus ’5’. Daarna vraagt het programma 
die velden te benoemen. U toetst ingeval van het voor¬ 
beeld: Naam + RETURN, Adres + RETURN eet. Geen 
dubbele punt of statie erachter !! ( Het programma zet 
alles netjes voor u klaar). Zodra de veldendefinitie klaar 
is kunt u gaan invoeren, (max. 50 tekens per regel!). Zo¬ 
dra u klaar bent met invoeren en dit bevestigd is door een 
op het eerste veld in te voeren, keert het programma 
terug naar het hoofdmenu. U kunt het bhestand dan sa¬ 
ven onder een eigen bedachte naam of u drukt op RE- 
TRUN. (Het programma geeft uw bestand de naam 'DA¬ 
TA - FILE ’. Invoeren vanaf disk gaat op dezelfde wij¬ 
ze: alleen RETURN zal een file zoeken met de naam 
'DATA - FILE '.Tenslotte nog iets over LABELS PRIN¬ 
TEN: Labels worden door het programma alleen geprint 
als er een adressenbestand gedefineerd is met als derde 
veld 'postcode ’ of 'Postcode'. Veel plezier met Data - 
Spin. 


ON nr GOTO invoeren,bekijken,zoeken,sorteren,verand 
eren.printen,geheugen,saven.wissen,einde 


kevcontroi 


IF nr$="" THEN kevcontroi 
nr=VAL(nr$) 

IF nr=0 AND nr$o”Q" THEN 8EEP:GöTö kevcontroi 


nv$ fi)=nv$(i)+SPACE$(qq i+ 


diskladen: 

ON ERROE GOTO hoofdienu 
OPEN T\#l,ip$ 

INPUT #1,ree:INPUT #l,vid:GOSUB diiensionering 
INPUT ll.av.-FOR i=l Tö av.- INPUT #l,nv$(ij:NEXT 
INPUT #l,ar.-F0R i=l Tö ar:F0R j=l TO av 
INPUT #l,re$(i,jjiNEXT j.-NEXT i:CLOSE #1:RETURN 
diskschrijven: 

sc=l:0PEN nf$ FOR OUTPUT AS #1 

WRITE #1 ,rec.-WRITE #l,vld 

WRITE #l,av:F0R i=l TO av.-WRITE #l,nv$(i):NEXT 

WRITE #i,ar:F0R i=i Tö ar.-FÖR j^l Tö av 

WRITE #l,re$(i.j):NEXT j:NEXT i.-CLOSE #1:RETURN 


invoeren 


veen 


CLEAR.-IF FREtxi <25000 THEN CLEAR ,1250004 

av=u:sc=Ü: vld=0 :DIM tsi200,2) 

tt*=" >>>>> AMIGA 11 DATA-BASE “ DATA-SPIN 

ï P.J.BOKMA tl JULI 1987 <<<<<" 

hoofdienu: 

CLS:PRINT tt$ 

LOCATE 5.15:PRINT "Menu:" 

LOCAIE 7,15:PRINT "[0] INVOEREN" 

LOCATE 9,15.-PRINT "(1] BEKIJKEN" 

LOCATE 11.15.-PRINT "(23 ZOEKEN" 

LOCATE 13,15:PRINT "[3] SORTEREN" 

LOCATE 15,15:PRINT "[4] VERANDEREN" 

LOCATE 7,50:PRINT "(5] PRINTEN" 

LOCATE 9,SQ:PRINT "[6] VRIJ GEHEUGEN" 

LOCATE 11,50.-PRINT "[7] SAVEN" 

LOCATE 13,50:PRINT "[83 WISSEN" 


LOCATE 10,3ü:PRINT "#2 - Toevoegen” 
LOCATE 12,30:PRINT "#3 - Nieuwe’fiie 
LOCATE 16;30:PRINT "TOETS UW KEUZE i. 
GOSUB kevcontroi 


OK nn3 THEN BEEP:G0Tö hoofdienu 
OIO fiieladen,toevoegen,nieuwefile.hoofdienu 


fileladen 


CLS:PRINT tt$ 

LOCATE 5,5:LINE INPUT "Toets filenaie of druk RETUR 


toevoegen: 

IF av<2 THEN GOTO hoofdienu 


CLS:PRINT tt$:L0CATE 3,S:PRINT "Velddefinitie 
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LOCATE 14,5:PRINT "Toets uw keuze ( 


LOCATI 20,5.-PRINT "druk een toets voor vervolg":GOS 


GOSÜB keycontrol:IF nr<l OR nr 


UB toets 


invoer 


IF nr=l THEN FOR i=l TO ar:G0SUB record:NEXT i:GOTO 


Ir kunnen geen records meer bij! 


>>>>> Bereik tonen 


LOCATE 5,5:INPUT "Eerste record 


Druk . plus RETURN oa te stoppen 


PUT "Laatste record 


nv$fij;:LINE INPUT re$(ar,i):re$(ar,i 


FOR i=b TO e.-GOSUB record :NEXT i: GOTO hoofdaenu 


record 


IF LEN(re$( ar.il 1=0 THEN re$( 


IF re$iar,i) 


NEXT i:G0T0 invoer 


nieuwefile 


nv$(j) 


IF avil THEN GOTO toevoegen 


File definiti 


LOCATE 22,5:PRINT "Druk een toets voor vervolg":G0S 


Toets aantal velden (2-9! 


keycontro 


5.5.-PRINT "Zoeken naar 


invoeren!".-PRINT.-GOTO inv 


NEXT j:IF hu=l THEN GOSÜB record:hu=ö 


NEXT i.-GOTO hoofdaenu 


DEFINITIE COMPLEET 


records invoeren".-FOR x=l TO 7500:NE 


invoer 


CLS.-PRINT tt$:LOCATE 12.5.-PRINT "Er zijn nog 


Op welk veld sorteren 


vcontrol 


IF nr<l 08 nr>av OR INTfavioav THEN GOTO hoofdaenu 


LS:PRINT tti:LOCATE 3,5,-IF sc=0 THEN PRINT "Uw bes 


LOCATE 5,5:PRIN 


Wilt u werkelijk stoppen 


j=i:k=r:s$=re$({(i+r)/2),vs) 


GOTO hoofdaenu 


IF j>ar THEN sort4 


bekijken 


CLS:PRINT tt$:LÖC aTE 3 


sort4 


LOCATE 8,5:PRINT "1# 
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re$(i,hr)=LEFT$(re$(i,br}.50) 


verder2 


kevcontrol2 


THEN kevcontrolS 


veranderen 


saven 


Bepaald nuaier wijzigen 


LOCAIE 5,5:LINE INPUT "Toets filenaas of druk RETUR 


zoeken en wijzigen 


ontrol 


enu.-GOSUB diskschrijven:GöTü hoofdienu 


CLS:PRINT tt$:LOCATE 3,5.-PRINT *»»> BEPAALD NUMME 


LOCATE 5,5:PRINT "1# - i record wissen":LOCATE 


LOCATE 5,5:INPUT "Welk nuaaer wijzigen 


PRINT "2# - Alle records wissen 


IF hi< 1 OR hi>ar OR hioINT(hi) THEN GOTO hoofdienu 


i=hi:GOSUB record 


LOCATE 9.5:PRINT "3# - Zoek en wis 


LOCATE 18,5,-PRINT "Welk veld veranderen ? (1/ 


ontrol:IF nr<i OR nr >3 THEN GOTO hoofdienu 


GOSUB keycontrol:IF nr<l OR nr > av THEN GOTO hoofdie 


LOCATE 22,5:PRINT 


CLS:PRINT tt$:LOCATE 3.5.-PRINT "Welk record wissen 


IF io <1 OR io>ar OR INTfaojoio THEN GOTO hoofdien 


LOCATE 21.5:PRINT "Wordt 


PRINT:PRINT:i=ao:GOSUB record 


re$(i.nr)sLEFT$(re$fi,nr).50} :G0T0 hoofdienu 


LOCATE 22,5:PRINT "Dit record wissen (J/N) ? 


zenw 


hu=0: LOCATE 5,5:INPUT "Wat moet gezocht worden 


FOR j-1 TO av:re$U, i} =re$(ar.i 


zenwis 


GOTO verder 


CLS:PRINT tt$:LOCATE 3,5:LINE INPUT "Zoeken naar 


IF hh$=LEFT$(re$(i.j),1} THEN hu 


verder 


NEXT j:IF hu=l THEN GOSUB record 


NEXT j:IF hk=l THEN GOSUB record:GOTO 


IF hum THEN GOTO verder 


LOCATE 18,5.-PRINT "Welk veld veranderen: 1/ 


printen 


verder zoeken 


CLS:PRINT tt$:LOCATE 3,5.-PRINT ">>>>> RECORDS PRINT 


OSUB keycontrol2:hr=VAL(nr$):IF hr<l OR hr>av THEN 


GOTO verder2 


Alles printen".-LOCATE 7,5:PR 


LOCATE 22,5:PRINT 


INT "2# - Gedeelte printen 


nv${hri 


R1NT "4# - Labels printen (alleen voor adresb 


LOCATE 21,5:PRINT "Wordt 


LOCATE 15,5.-PRINT "Toets uw keuze {1/4)":GÖSUB keyc 
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ontrol:IF nr<l OR nr>4 THEN GOTO hoofdienu 


NEXT j:IF no=l THEN GOSÜB routine2 
bo=Ü:NEXT i:GOTO hoofdienu 
routine: 

ON ERROR GCiTO hoofdienu 

FOR jsl TO avrLPRINT " ":nv$(j); 

:LPSINT:RETURN 

routine2: 

ON ERROR GOTO hoofdienu 

FOR j=l TO 2:LPRINT " " ; re$(i.j) 

LPRINT " " : re$(i,3)";re${i,4) 

FOR uu=l TO tr:LPRINT:NEXT uu:RETURN 

diiensionering: 

IF vld=2 THEN al=1001 
IF vld=3 THEN al=801 
IF vld=4 THEN al=701 
IF vld=5 THEN al=601 
IF vld=6 THEN al=501 
IF vld=7 THEN al=401 
IF vld=8 THEN al=301 
IF vld=9 THEN al=201 
DIM re$(al,vld+l),nv${vld+li 
RETURN 


ON nr GOTO aprint,gprint.zprint,labels 


b=l:e=ar.-F0R i=b TO e.-GOSUB routine:NEXT i.-GOIO hoo 


gprmt 


LOCATE 5,5:INPUT "Eerste nuiaer 


FOR i=b TO e:G0SUB routine.-NEXT i:GOTO hoofdienu 


CLS:PRINT tt$:LOCATE 3,5:PRINT ”>>>>> ZOEKEN EN PRI 


worden 


IF sp=l THEN GOTO verder3 


IF hp$=LEFT$(re$(i,j),l) THEN mp=l 


verder3 


NEXT j:IF ap=l THEN GOSUB routine 


labels 


IF LEFT$(nv$(3!,5)o "Postc" AND LIFT$(nv${3l,5i<> 


Richard Tol uit Woerden is de maker van het program¬ 
ma Shoot’em. Het is een sterk vereenvoudigde versie van 
het programma West Bank. Het is de bedoeling om de 
bandiet neer te schieten. Op het scherm verschijnt een 
saloon, achter de twee onderste ramen of in de deur ope- 
ning verschijnen personen. Aan u de taak om de bandiet, 
dit is degene met een doek voor zijn gezicht, neer te 
schieten. Het raken van de verkeerde personen kost een 
leven even als te lang wachten. Het spel bevat drie levels. 


LOCATE 5,5:PRINT "1# - Alles printen" 

LOCATE 7.5:PRINT "2# - Gedeelte printen" 

LOCATE 9,5:PRINT "3# - Zoeken en printen" 

LOCATE 13,5: PRINT "Toets uw keuze Ü/3)":G0SUB keyc 


ontrol 


IF nr<l OR nr>3 THEN GOTO hoofdienu 

LOCAlt 15,5.-INPUT "Hoeveel tussenregels ”;tr:IF tr 

0 THEN tr=3 

ON nr GOTO alabel.giabei.ziabel 


1 rem shoot’em c-64 

2 rem door richard van tol 

3 rem uit woerden 
5 hi =0 

10 reminHHfOsprite initia 1 isatie**##* 


alabel 


FOR i=l Tö ar:GOSUB routine2:N£XT i:GÖT0 hoofdienu 


glabei 


20 p=2040:b=13 
30 for t=0 to 2 
40 pokep,b:y=b#64 
50 for x=y to y+62 
60 readz:pokex,z 
70 nextx 
80 p=p+i:b=b+1 
90 nextt 
100 sc=0 :1i=3 

HO rem score, hl-score, 1 evens 

120 poke53287 , 1:poke53288,1 ï poke53289 


LOCATE 5 


LOCATE 7,5:INPUT 'laatste nuner : ”.*e 

FOR i=b TO e:GOSUB routine2:NEXT i:GOTO hoofdienu 


zlabel 


iig=ö: LOCATE S,5:LINE INPUT "Haar soet naar gezocht 
worden ”;hl$:l=LEN(hl$) 


130 rem******programma****** 

140 poke53280,O:poke53281,O:print"[SHI 
FT CLR3 tCRSR-DOWN3";spc(12)"s tSPAC 
E 3 h t SPACE 3 o t SPACE 3 o t SPACE 311 SPACE 3 
’t SPACE 3 e t SPACE 3 m" 


THEN GOTO verder4 


IF hl$=LEFT$(re$(i,j),l) THEN io=l 


verder4 
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mËÊÊÊÊaêgêÈÊÈSm 


150 print"[6xCRSR-D0UN3[8xSPACE3welktS 


160 print"[CRSR-D0UN3[12xSPACE3l=moeiI 


650 printchr*(147) 


660 printtab(7)"[2xSPACE30[19xC0M Y3P" 
670 printtab(7)"[2xSPACE3 tCOM H3[SPACE 


170 print"[CRSR-D 0 WN 3 ( 12 xSPACE 32 =redel 


3 dead t SPACE 3 gu1chISPACE 3 sa1oonISPA 


180 print"[CRSR-D0WN3 112xSPACE33 


printtab(7)"(2xSPACE3 [COM H3(19xSP 


190 input le* 


ACE3 CCOH N3 


690 print"[4xSPACE30[29xC0M Y3P 


3" then 140 


tC0M H3 t SPACE3OC2xC 


then 1e=BO 


°ü,Ii P0l:2xC0M Y3P[12xSPACE30[2xC0M 


220 if le*="2" then !e=75 


Y3POt2xCOM Y3PCC0H N3 fSPACE3 


then le=100 


?f. i !’^"' 4xSPACE;lCC0M H3 tSPACE3LC2xC 


saloon tekening 


OM P3 CSHJFT 63L[2xC0M P3[SHIFT 


250 pl=int(md(l)«3) + l 


12xSPACE3L[2xC0M P3[SHIFT @3L[2xC0 


260 no=int (rnd (1) «2) +1: poke53271,2-tno 


M P3[SHIFT 63ICOM N3[SPACE3 


print"[4xSPACE3[COM H3[SPACE30[2xC 
OM Y3P0[2xC0M Y3P[12xSPACE30[2xC0M 


no:1 f no=1 then 


Y3PO(2xCOM Y3P[C0M N3[SPACE3 


280 print"[HOME3score 


730 P*; i " t " C4xSp ACE3[COM H3 [SPACE3L[2xC 
OM P3[SHIFT @3L[2xCOM P3[SHIFT @3[ 
12xSPACE3L[2xC0M P3[SHIFT @3L[2xC0 
M P3[SHIFT @3[COM N3[SPACE3" 

740 print"[4xSPACE3[COM H3[29xSPACE3[C 


290 if pl=i then poke 53250+no,100 


300 if pi=2 then poke 53250+no,155 
310 if pl=3 then poke 53250+no,250 


330 poke53251tno,150 


[4xSPACE3[COM H3[29xSPACE3[C 


then 390 


760 print"[4xSPACE3[COM H3[29xSPACE3[C 


m=2 then poke53269,peek(53269) 


770 prlnt"[4xSPACE3[COM H3[SPACE30[7xC 
OM Y3P(2xSPACE3UDDDI[3xSPACE30[7xC 
OM Y3P[C0M N3[SPACE3" 

780 print"[4xSPACE3[COM H3[SPACE3[COM 
H3[7xSPACE3[COM M3[SPACE3U[5xSPACE 


gosub440:goto24 


3I[2xSPACE3[COM G3[7xSPACE3[COM M3 


[COM N3[SPACE3 


790 print»[4xSPACE3[COM H3[SPACE3[COM 


then o$ 


H3[7xSPACE3(COM M3[SPACE3[COM G3[5 
XSPACE3[COM M3[2xSPACE3[COM G3[7xS 


gosub440:goto240 


PACE3[COM M3[COM N3[SPACE3 


800 print"[4xSPACE3[COM H3[SPACE3(COM 
H3[7xSPACE3[COM M3[SPACE3[COM G3(5 


XSPACE3[COM M3[2xSPACE3[COM G3[7xS 


PACE3[COM M3[C0M N3[SPACE3 


440 reaitMoverlles leven»*«*«* 


810 print"[4xSPACE3[COM H3[SPACE3L(7xC 


450 poke53269,peek(53269) and(255-2-to) 


OM P3(SHIFT 63[SPACE3L[5xCOM P3[SH 


460 print chr*(147) 


IFT 63[2xSPACE3L[7xC0M P3[SHIFT 63 


(COM N3[SPACE3" 


820 print"(4xSPACE3 (COM GUI 
OM G3[5xSPACE3[COM M3I11 


510 print"[16xCRSR-D0WN3 


830 print"[4xSPACE3[COM G3[llxSPACE3[C 


OM G3(5xSPACE3(COM M3[11xSPACE3[CO 


840 print"(4xSPACE3[COM G3[ 1 lxSPACE3 IC 


OM G3[5xSPACE3[COM M3[11xSPACE3[CO 


850 print"[40xC0M Y3 




580 printchr$(147) 


590 poke53269, peek(S3269)and (2B5-2'tO) 


600 if sc>hl then hl=sc 
610 print"!10xCRSR~D0WN3 
C SPACEJ ove 
620 getg$ :itg$ 


then 620 
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. . 




.... ... 


950 re**»*«**bandiet*»»*** 

960 data 0,126,0,0,255,0,0 
970 data 255,0,7,255,224,1,66 
980 data 128,1,24,128,0,255,0 
990 data 0,128,0,7,255,224,15 
100Ó data 189,240,25,219,152,25,255 
1010 data 152,25,255,152,25,255.152 
1020 data 5,255,160,3,255,192,7 
1030 data 255,224,0,0,0,0,0 
1040 data O,O,O,O,O,O,O 
1050 rem*****»burger****«» 

1060 data 0,255,192,0,255,192,0,255,192 
1070 data 7,255,248,7,255,248,0,161,64 
1080 data 0,140,64,0,128,64,0,158,64 
1090 data 0,64,128,0, 63,0,0, 30,0 
ÏIOO data 3,255,224,6,127,152,6,127,152 
1110 data 6,127,152,6,127,152,6,127,152 
1120 data O,O,O,O,O,O,O,O,O 




mÊÈrn 


; 
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175 

219 

78 

27 

247 

127 

164 

26 

27 

147 


Laurens van Kooy uit Den Haag maakte voor ons een 
computer versie van het overbekende dobbelspel Y ATH- 
ZEE. De spelregels zijn voor iedereen waarschijnlijk wel 
bekend. Er is geen mogelijkheid vals te spelen. De ver¬ 
trouwde commodore 64 is een deskundige, onpartijdige 
scheidsrechter. Veel succes. 


1 rem ##* yahtzee s** 4 * 

2 rem *** doorslaurens van kooy **# 

3 rem #*# (c)1987 #** 

ÏOO gosub910:print"ESHIFT CLR]”tab<25) 

"CCTRL 83[CTRL 93 t SPACE3 f11SPACE3 C 
CTRL 03=sorteren”:gosub860 
110 rem *** spel «** 

120 be=be+l:print”CHOME3 C2xCRSR-D0WN3 C 
COM 53"tab(30)”beurt”be:fors=ltosp 
:gosub690 

130 ford=lto5:d(d)=lnt(rnd(t1)#6+l)sne 
xt:p=l:mp=6:gosub590 
140 gosub790:ifk*=r$thenh(p)=-h(p): if P 
=6thenl60 

150 gosub590:ifp=6thenprint”CHOME3"1♦ " 
CCTRL 93 verdergaan"sgotol40 
160 print"CHOME3"1$"C10xSPACE3":ifp<>6 
thenl40 

170 mp=13s ford = lto5:ifh(d)=lthend(d) = i 
nt(rnd(ti)*6+1) 

180 h(d)=l:next:gosub590:poke198,0:p=0 
190 p=p+l:vp=p:ifg(s,p)=1thenl90 
200 r=1162+vp*40:poker,32:poker+1,32:r 
=1162+p*40:poker,61spoker+1,62 
210 vp=p: gosub790: if k$Or$then200 
220 rem *** punten *** 

230 gosub630: pu=0: ifme=5andg(s,12)=lth 
en510 

240 onpgosub350,350,350,350,350,350,38 
0,380,400,420,450,470,490 
250 g(s,p)=i:tp(s)=tp(s)+pu:a=pu:gosub 
770:pu$(s,p)=b$:gosub690:tp$(s)=b* 
260 if spOithenpr int 1 ef t$ ( "ECOM 33" + d$ 
,s+5) i tab(13);b*:forx=lto2000:next 
270 d=p1(sp(s)-1):ifsp(s)=lora<=tp<d)+ 
bo(d)then290 

280 sp(s)=sp(s)-l:sp(d)=sp(d)+l:pl(sp( 

d))=d:p1 (ep(s) )=s:goto270 
290 pokel98, O: i f be<>13orsOspthennexts 
:gosub860:goto!20 

300 print”CH0ME3”tab(22)”CC0M 73drukCS 
PACE Jcrsr C SPACE]up/down n r $;tab (22) 




REGEL ÏO 

39 

REGEL 20 

90 

REGEL 30 

141 

REGEL 40 

242 

REGEL 50 

243 

REGEL 60 

144 

REGEL 70 

218 

REGEL 80 

120 

REGEL 90 

214 

REGEL ÏOO 

44 

REGEL HO 

106 

REGEL 120 

110 

REGEL 130 

45 

REGEL 140 

215 

REGEL 150 

238 

REGEL 160 

176 

REGEL 170 

167 

REGEL 180 

241 

REGEL 190 

58 

REGEL 200 

210 

REGEL 210 

182 

REGEL 220 

190 

REGEL 230 

228 

REGEL 240 

17 

REGEL 250 

75 

REGEL 260 

73 

REGEL 270 

138 

REGEL 280 

222 

REGEL 290 

75 

REGEL 300 

86 

REGEL 310 

83 

REGEL 320 

93 

REGEL 330 

160 

REGEL 340 

237 

REGEL 350 

31 

REGEL 360 

130 

REGEL 370 

4 

REGEL 380 

220 

REGEL 390 

138 

REGEL 400 

oer*Cf A i A 

218 

AQ 

KllutlL 41U 

REGEL 420 

196 

REGEL 430 

217 

REGEL 440 

27 


REGEL 450 

92 

REGEL 460 

77 

REGEL 470 

251 

REGEL 480 

234 

REGEL 490 

220 

REGEL 500 

57 

REGEL 510 

178 

REGEL 520 

141 

REGEL 530 

63 

REGEL 540 

184 

REGEL 550 

237 

REGEL 560 

142 

REGEL 570 

221 

REGEL 580 

68 

REGEL 590 

63 

REGEL 600 

227 

REGEL 610 

142 

REGEL 620 

113 

REGEL 630 

26 

REGEL 640 

243 

REGEL 650 

77 

REGEL 660 

20 

REGEL 670 

139 

REGEL 680 

62 

REGEL 690 

55 

REGEL 700 

111 

REGEL 710 

203 

REGEL 720 

111 

REGEL 730 

203 

REGEL 740 

59 

REGEL 750 

59 

REGEL 760 

59 

REGEL 770 

101 

REGEL 780 

128 

REGEL 790 

46 


REGEL 800 46 

REGEL 810 202 

REGEL 820 117 

REGEL 830 117 

REGEL 840 117 

REGEL 850 117 

REGEL 860 142 

REGEL 870 159 

REGEL 680 147 

REGEL 890 55 

REGEL 900 69 

REGEL 910 19 

REGEL 920 71 


REGEL 1030 
REGEL 1040 
REGEL 1050 
REGEL 1060 
REGEL 1070 
REGEL 1080 
REGEL 1090 
REGEL 1ÏOO 
REGEL 1110 
REGEL 1120 


REGEL 930 
REGEL 940 
REGEL 950 
REGEL 960 
REGEL 970 
REGEL 980 
REGEL 990 
REGEL ÏOOO 
REGEL ÏOIO 
REGEL 1020 


63 

205 

126 

176 

95 

84 

85 
97 
89 
149 
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310 printtab(29)"ECTRL 83eindstand":b 


BECO 


320 s=p: gosub690: gosub790: if k$Or$then 


750 a=tp( s)+bo(s)sgosub770:printtab(17 


330 run 


) "BECTRL 81 generaalESPACE3totaal;t 


340 rem ### punten berekenen ### 


760 printtab(17)"ECOM Z3CCCCCCCCCCCCCC 


360 ifbh(s)>=63andbn(s)=Othenbo(s)=bo< 


CCCCCCECOM X 3 ECTRL 23 


380 1 f rae> 5 =p~4thenpu=ao 


then790 


ECRSR-DQWN3"thenp=p+l:ifp=»p 


410 return 


+ 1 thenp=l 


810 ifk* 


ECRSR-UP3"thenp-p- 1 sifp^Othe 


430 ifa<2>>0anda(3)>0anda(4)>0anda(5)> 


0thenpu=30 


830 ifmp=13andg(s,p)*1thengoto800 


450 ifme~land((a(1)=landa( 6 )=0)or<a(1) 


Oanda( 6 )= 1) )thenpu=40 


socore bord *** 


870 print"EHOME3 E 2xCRSR-D0WN3 " 1 $ " ECOM 


43ECOM A3EC0M 53speECOH 43ECOM R3E 


490 pu-ao:return 


CTRL 63pECQM 43EC0M R3ECTRL 83pntE 


COM 41EC0M S3"r$ 


1 $"ECOM Q3CCCESHI 


FT +3CESHIFT + 3CCCEC0M W3 


880 ford = itosp:print 1♦"BECOM 53"n$(d) 


520 ifg(s,d(l))=0thenvp-p:p=d<1):goto2 


ECOM 43BECTRL 63"chr$(sp(d)+48)"EC 


OM 43BECTRL 83"tp*(d)snext 


890 printI4"ECQM Z3CCCEC0M E3CEC0M E3C 


CCECOM X3 


550 forz=ito4:föry-lto4 


560 ifd(y)>d(y+l)thend=d(y+1):d(y+l)=d 


<y) :d(y)=d:h-h(y+l) 2 h(y+l)=h(y)sh( 


«BECOM 33 


EHOME3 


z:return 


E 20xCRSR~DOWN3 


930 forx=lto6sfory=itol3:puf(x,y)- w E3x 


590 ford=lto5:ifh(d)=-lthenprint"ECOM 


SPACE3EC0M 43B":next:sp(x)=x:p 1 (x) 


600 ifd-pandmp= 6 thenprint"ECTRL 93 
610 printleft$(d$,d*5~4)d$(d(d));" 


ECTRL 83 E2xSPACE30ECQM 43B 


L 23ECTRL 03 


E6xCRSR~RIGHT3" 2 r$=chr*(13) 


UCCCIECRSR-D0WN3E5xCRSR-LEFT3B 


B ECRSR -DOWN3 E 5xCRSR-LEFT3 JCC 


CK"sb$="BECRSR-D0WN3 E5xCRSR-LEFT3B 


640 for d = 1to5:a(d(d))=a(d(d)) + l:ao—ao + 


d(d)snext 


960 f o r x=01 06 :a*(x)=mid$("E 3x SPACE 3 Q E 3 


650 ford=lto 6 :ifa(d)>emthenem=a(d) 


E3QQQ 


680 rem score blad **# 


) +b$+a$(b)+bl+a$(c)+c$snext 


690 print"EHQME3"tab(18) 


E 2xCRSR~D0WN3 


980 print"ESHIFT CLR3ECTRL 23 


ECOM 53speler"ssprinttab(17)"ECOM 


43ECOM A3CCCCCEC0M 33scoreESPACE3b 


990 printleft*(dt,rnd(1)*20+1);tab(rnd 


1 adECOM 4 3CCCCCEC0M S3 


ÏOOO forx=0to6:printleft$(d$, 11 ) 


left$("E 6 xCTRL 63ECOM 63 


ECTRL 83 


5000:next 


nextsprintta 


1010 print"ESHIFT CLR3"tab(16)"ECTRL 83 


E COM Q 3 CCCCCCCCCCCCCCCCCCCCE 


720 a=bh(s)sgosub770:printtab(17)"BECT 


1020 print"ECRSR-DOWN3 ECOM 63-deESPACE3 
spe1rege1s ESPACE3 van E SPACE 3 deze E SP 
ACE 3 yahtzee E SPACE 3 ve r sie" 


1030 pr1nt"[SPACE3 z i j n [SPACE]preciestSP 


)"BtCOM 63onderste£SPACE3helft .:IS 


ACE3dezelfdeCSPACE 3 a 1 s t SPACE 3 d 1 e t S 
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PAGE 3 van E SPACE 3 de" 

1040 print"! SPACE3 origIne Iet SPACE3 versi 
e.E SPACE 3 he t C SPACE 3 pr ograoïaESPACE 


3kent 


1050 print"! SPACE3 ook C CRSR-RIGHT3 de E SPA 
CE3yahtzee E SPACE3 alsESPACE 3 joker E B 
PACE 3 en E SPACE 3 bonus C 7xSPACE 3 punten 


1060 print"ECRSR-D0WN3[CTRL 63-deESPACE 
3 bediening C SPACE 3 gaat C SPACE 3 met E SP 
ACE 3 de E SPACE 3 cr s r E SPACE 3up/donw" 

1070 print * E SPACE 3 en E SPACE 3 de E SPACE 3 < r e 
turn> ESPACE3 toetsen.* 

1080 print"!SPACE3[CTRL 83[CTRL 93ESPAC 
E3 f1E SPACE3 E CTRL 03[CTRL 6 3 E SPACE3 
is E SPACE 3 om E SPACE 3 d e E SPACE 3 dobbe1s 
tenen E SPACE 3 op E SPACE 3 vo1gorde E 2xSP 
ACE3teESPACE3leggen." 

1090 print"CSPACE3[CTRL 23witteECTRL 63 
E SPACE 3 stenen E SPACE 3 worden E SPACE 3 o 
verESPACE3 geworpen." 

1100 print"ESPACE3 ECOM 33 rodeECTRL 63E2 
xSPACE 3 s tenen!SPACE 3 worden E SPACE 3 v 
astgehouden." 

lllO print"ESPACE3deESPACE3steen!SPACE3 
die!SPACE3[CTRL 23[CTRL 93reverseE 
CTRL 03[CTRL 6 3 ESPACE3isESPACE3afg 
edruk t ESPACE 3is E SPACE 3 de E SPACE 3 cur 


1120 print"E2xCRSR-D0WN3 ECOM 53-metESPA 
CE 3 hoevee1"r $"E SPACE 3 speI er s E SPACE 
3wil"r$"ESPACE3 jeESPACE3spe1 en!SPA 


1130 printtab(24)"E3xCRSR-UP3 ECOH 73geb 
ruik"r$;tab(23)"deESPACE3cursor"r$ 
;tab(21)"up/down-toetsECRSR-D0WN3" 


REGEL 1000 57 


REGEL 1010 85 


REGEL 1020 40 

REGEL 1030 134 

REGEL 1040 48 

REGEL 1050 3 

REGEL 1060 25 

REGEL 1070 163 

REGEL 1080 100 

REGEL 1090 250 

REGEL 1100 18 


1140 printtab(14)"ECTRL 2 3 E5xCRSR-UP3"d 
s gosub790: sp=p: if k*Or$thenil4 


1150 print"ESHIFT CLR3EC0H 73 ECRSR-DOWN 


tia1en E SPACE 3 van E SPACE 3 de E SPACE 3 s p 
eler s ESPACE 3inE ÖxSPACE3(max E SPACE 3 


1160 fors=ltosp:print"[HOME3E5xCRSR-D0W 
N3EC0M 5 3 initialenESPACE3speIer ESP 
ACE 3 E 2xCRSR-UP 3 E CTRL 2 3"d*(s)"ECOH 
53 E2xCRSR-UP3E3xSPACE3 sp"chr$(s+4 


REGEL 1150 253 

REGEL 1160 210 

REGEL 1170 2 

REGEL 5000 165 

REGEL 5010 176 

REGEL 5020 125 

REGEL 5030 151 

REGEL 5040 161 


1170 printtab(23) 


inputni 


5000 rem *** data *»* 

5010 dataenen,tweeen,drieen,vieren,v 
en,zessen,three of a kind,carré 


READY 


** EINDE LISTING yahtzee 
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rtSPACE3r.huijbregtst15xSPACE3 tCTR 
L 03 "; 

110 print”tCTRL 13t40xSHIFT *3"; 

120 print"tCTRL 23keuze-menu:" 

130 print" t2xCRSR-D0WN3 t12xCRSR-R!GHT3 

1.C SPACE3 ui11 eg t SPACE3 te 1ex-writer 


Telex-writer is een programma van Roland Huijbregts 
uit Terheijden. Het programma is gebaseerd op het be¬ 
kende real-time writers. Alle toetsaanslagen worden in 
het geheugen opgeslagen op de manier waarop zij zijn 
ingetypt. Op een door uw zelf gekozen snelheid. De tekst 
kan ook op een cassette of diskette worden weggeschre¬ 
ven. Een ideale manier om uw eigen levende brieven te 
schrijven. Een gesavede tekst kan zonder problemen uit 
elk hoofdprogramma worden opgeroepen d.m.v. sys 
8013. De afdruksnelheid kan worden ingesteld door po- 
ke 8042,x waarbij x de waarde kan krijgen tussen 1 en 
255. Verdere informatie in het programma. 


140 print”t 2xCRSR-D0WN3 t12xCRSR-RIGHT 3 

2. CSPACE3invoeren" 

150 print"t2xCRSR~D0WN3t12xCRSR-RIGHT3 

3. C SPACE3bekijken" 

160 print"t2xCRSR-D0WN3 t12xCRSR-RIGHT3 

4. CSPACE3wegschrijven" 

170 print"C2xCRSR-D0WN3 C12xCRSR-RIGHT3 

5. CSPACE3stoppen" 

180 print"!2xCRSR-D0UN3t2xCRSR-R1GHT3 u 
w t SPACE 3 keuze C SPACE 3 i s t SPACE 3:"; 
190 inputa:ifa<landa>5thenl90 
200 onagosub220,330,420,480,580 
210 goto60 

220 printchr$(147):print"[CTRL 13tlOxS 
PACE3 uitlegt SPACE 3 te 1ex-writer C 8xS 
PACE 3" 

230 print"CCTRL 2312xCRSR-D0WN3C2xCRSR 
-RIGHT3telex-writer[SPACE3isCSPACE 
3 eenCSPACE3 programmat SPACE3 om" 

240 print"C2xCRSR-RIGHT3 CCRSR-D0WN3 tek 
stent SPACE3 letter t SPACE3 voor t SPACE 
3 lettert SPACE3 int SPACE3 te" 

250 print"tCRSR-D0WN3 12xCRSR-RIGHT3 ha 1 
en t SPACE 3 en t SPACE 3 ze t SPACE 31ater t S 
PACE 3 a1s t SPACE3 bij voorbeeld" 

260 print"12xCRSR-RIGHT3 tCRSR-DOWN3 het 
tSPACE3begin-schermtSPACE3 vantSPAC 
E3 een t SPACE3 programma" 


10 rem telex-writer / 64 
20 rem door r.huijbregts 
30 rem uit terheijden -- 1987 
40 rem 

50 goto590:rem data lezen 
60 poke53281 v 246:poke53280 f 254 rprintc 
hr$(147) 

70 print"tCTRL 13 tHOME3 t40xSHIFT *3"; 
80 print"tCTRL 23tCTRL 93113xSPACE3 te 
1ex-writer f15xSPACE3 tCTRL 03"; 

90 print"tCTRL 13t40xSHIFT *3"; 

ÏOO print"tCTRL 23tCTRL 93t8xSPACE3doo 


The elementary Commodore 128 


De onmisbare handleiding voor Uw Commodore-128 
door William B. Sanders. 


Bestellen kan alleen bij vooruitbetaling door overmaken van 
ƒ 25,- op giro 3157656 Infolist Huizen met vermelding van: 
The Elementary C-1 28. Na ontvangst van Uw overmaking sturen 
wij U het boek op. 


Ook in de betere computerwinkel 


INFOLIST 

Postbus 1047, 1270 BA Huizen, tel.: 02152-62343 
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S®fSp« 

Wé ï 


WSÊÊÊËê 


; 

: 






520 Ifde4="c"thenpoke49420,1 
530 print"[2xCRSR-D0WN3[2xCRSR-RlGHT3n 
aam[SPACE3programma(inaxl6):" 

540 input"[2xCRSR-RIGHT3";r*:ifr*=""th 
en540 

550 q-len(r*>:poke494t3,q:t=0 

560 fori=qtoistep-l:c*=right4(r$,i):x= 


270 print*t2xCRSR-RIGHT3[CRSR-D0WN3wee 
r!SPACE31 etter tSPACE3voor£SPACE3le 
ttert SPACElaf[SPACE 3 teISPACE 3 d r uk- 


280 print"£2xCRSR-RIGHT3CCRSR-D0WN3k 


290 print"[CRSR-D0WN3 [2xCRSR-RIGHT3het 
tSPACE3IijkttSPACE3optSPACE3een£SP 
ACE3 tel ex-apparaat[SPACE]waar" 

300 print"12xCRSR-RIGHT3tCRSR-D0WN3det 
SPACE3tekst[SPACE3letter[SPACE3voo 
r[SPACE1 lettertSPACE 3 wo r d t[SPACE 3 a 


asc(c*>:poke49461+t 


590 print"£SHIFT CLR3[8xCRSR-DOWN3[iOx 
CRSR-RIGHT3 even t SPACE 3 wachten[SPAC 


310 print"[CRSR-D0UN3[2xCRSR-RIGHT3ged 
ruk t[SPACE 3 op[SPACE 3 he 11 SPACE 3 papi 


610 fort=7968to8192:reada:poket,a:next 
620 fort*49408to49460sreada:poket, a:ne 


320 print"[CRSR-DOWN3[2xCRSR-RIGHT3dru 


i nputat:return 


330 printchr*(147):print"[CTRL 13[2xCR 
SR-DOWN3 12xCRSR-RIGHT3er[SPACE 3 zij 


340 print"[CTRL 23I3xCRSR-D0WN3[2xCRSR 


R1GHT 3 f1:[SPACE 3 sche rm[SPACE 3 scho 


350 prlnt"[2xCRSR-DQWN3[2xCRSR-RIGHT3f 
2 :tSPACElborderkleur[SPACE3met£SPA 
CE31[SPACE3verhogen" 

360 print*[2xCRSR-D0WN3 12xCRSR-RIGHT3 f 


print"t2xCRSR-DOWN3 t2xCRSR-RIGHT3f 


print"[2xCRSR-DOUN3 12xCRSR-RIGHT3 


functies!SPACE3zijn 


390 print"[7xCRSR-R!GHT3gebrul ken[SPAC 


400 print"[CRSR-D0UN3 12xCRSR-RIGHT3dru 


k[SPACE3 <return>[SPACE 3 om[SPACE 3 te 


1000 data228,234,234,234,160,0,145,251 
ÏOIO data230,251,208,2,230,252,32,210 
1020 data255,162,15,142,24,212,169,129 
1030 datal41,4,212,169,15,141,5,212 


inputat 


£C0M 73 


420 print"tSH1 FT CLR3IH0ME3[2xCRSR-D0U 


1040 datal69,170,141,0,212,141,1,212 
1050 data202,208,232,162,0,142,4,212 


N3[16xCRSR-RIGHT3[CTRL 1[bekijken 


430 print"[CTRL 23[3xCRSR-D0WN3[2xCRSR 
-RIGHT3[CTRL 23de£SPACE3snelheidtS 


1060 datal42,5,212,76,23,192,234,234 
1070 data234,234,234,234, 234,72,168,72 


PACE3van[SPACE3afdrukken." 


1080 datal64,211,177,209,133,249,9,128 


440 print"t2xCRSR-RIGHT3t2xCRSR-D0WN3n 
oraaa1[SPACE 31s t SPACE 3 dat tSPACE 364 


1090 data!45,209,104,168,104,96,234,234 


450 Input"[2xCRSR-RIGHT3£2xCRSR-DOUN3v 


1540 datal68,72,164,211, 165,249,145,20 
1550 datal04,168,104,96, 234,169,147,32 
1560 data210,255,162,0,160,32,134,251 
1570 datal32,252,32,44,31,160,0,177 


tCOM 73 


pokeS042,n:sys8013:return 
480 printchr4(147)sprint"!HOME3[CTRL 1 
3£2xCRSR-DOWN3[12xCRSR-R]GHT3wegsc 


490 print"t2xCRSR-DOWN3[CTRL 2][2xCRSR 


RIGHT3disk[SPACE3of[SPACE3 cassett 


e(SPACE3(d/c) 


1600 data201,133,208,10,230,251,208,170 
1610 data230,252,76,34,31,234,201,134 


nu 
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DIGi-ONTWERPER3«ii*l 


JiViw, 


iliilllS 




. ■ ■ 


mm 










wmm 


REGEL 1650 
REGEL 1660 
REGEL 1670 
REGEL 1680 
REGEL 1690 
REGEL 1700 
REGEL 1710 
REGEL 1720 
REGEL 1730 
REGEL 1740 
REGEL 1750 
REGEL 1760 
REGEL 1770 
REGEL 1780 
REGEL 1900 
REGEL 1910 
REGEL 1920 
REGEL 1930 
REGEL 1940 
REGEL 1950 
REGEL 1660 


REGEL ÏOIO 
REGEL 1020 
REGEL 1030 
REGEL 1040 
REGEL 1050 
REGEL 1060 
REGEL 1070 
REGEL 1080 
REGEL 1090 
REGEL 1100 
REGEL lllO 
REGEL 1500 
REGEL 1510 
REGEL 1520 
REGEL 1530 
REGEL 1540 
REGEL 1550 
REGEL 1560 
REGEL 1570 
REGEL 1580 
REGEL 1590 
REGEL 1600 
REGEL 1610 
REGEL 1620 
REGEL 1630 
REGEL 1640 


164-0 data 135, 208» 7, 238» 33, 208,76» 133 
1650 data31,234» 201,136,208,5,76,133 
1660 data31,234,234,201,32,208,8,32 
1670 data210,255,76,133,31,234,234,201 
1680 datalB,240,244,201,17,240,240, 201 
1690 data29,240,236,201»145,240,232,201 
1700 data157,240,228,201,0,208,4,96 
1710 data234,234,234,32,210,255,230,251 
1720 data208,2,230,252,162,15,142,24 
1730 data212,169,129,141,4,212,169,15 
1740 data!41,5,212,169,170,141,0,212 
1750 data!41,1,212,202,208,232,169,0 
1760 datal41,0,212,141,1,212,141,24 
1770 data212,76,90,31,234,234,234,234 
1780 data234 

1900 datal62»53,160,193,169,1,32,189 
1910 data255,169,1,162,8,160,255,32 
1920 datai86,255,165,251,133,253,165,25 
2 

1930 data!33,254,230,253,208,2,230, 254 
1940 datal69» 32,133,251,169,31,133,252 
1950 datal69,251,166,253,164,254,32,216 
1960 data255,96,234,234,234 

X» EINDE LISTING telex-writer 


READY 


Van dezelfde maker als het voorgaande programma is het 
programma digi ontwerper. Als u beide programma’s 
met elkaar vergelijkt ziet u wat voor verschillende pro¬ 
gramma’s een programmeur kan maken. Door middel 
van digitale programmering kan het geluid via de sid- 
chip veel meer golven aannemen dan de vier reeds be¬ 
kende. Zelfs spraakachtige tonen zijn nu mogelijk. De 
golf wordt op het scherm zichtbaar als staafdiagram. Er 
gaat een wereld van geluiden voor u open. 


1 rem ** digi go1fontwerper ** 

2 rem door erik de neve 

3 rem uit oostzaan 

4 rem voor c= Info 

5 rem 

ÏOO poke650,1.28:poke56, 159:poke55, O:cl 


110 fora=0to51:readd:pokea+40908,d:nex 


120 dimw%(9,33>:c=5:print"CSHIFT CLR]" 
spc(48)"-1SPACE 3 61 SPACE 3 seconden C S 
PACE 3 gedu1d £ SPACE 3 -" 

130 fora=lto32s w%(6,a)=sin(a*.198)#7» 6 
+8:next 

140 fora=lto32:w%(5,33-a> =sin((a-l>*. 1 
96*4>*<7.5-a/32*7.5)+7.5:next 
150 fora=ltol6:w%(7,a/2)=15:w%(8,a)=a/ 
16*15:w%(9,a)=w%(8,a)snext 
160 fora=17to32:w%(7,a)=w%(7,a-16):w%< 
8,a)=w%(9,33-a)sw%(9,a)=(a-16)/16* 
15:next 


REGEL 1000 23 
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ülüli 

fiiiiIBi 

pilli 


Hl 
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170 print"ICTRL 1JISHIFT CLRi"chr♦<142 


430 print"!CRSR-DOWNit SPACE3 deze I SPACE 
3 z I j n I SPACE 3 naa rI SPACE 3 eIg enISPACE 
3 inzicht!SPACE3 te" 

440 print"ISPACE3veranderen;ISPACE3op! 


poKeaozöU, 11 s poke53281,12:gosub750 
prlntspc!13)"I3xCRSR-D0WN3ICTRL 23 
ICTRL 93I3xSPACE3«enuI3xSPACE3ICRS 
R-DDWN3ICTRL 13" 


SPACE 3 0-41SPACE 3 kunISPACE 3 uISPACE 3 
ze 1f":print"!SPACE3ontwerpen." 


200 print»!CRSR-DOWN312xSPACE3If1313xS 


PACE3inleiding 


450 gosub820:gotol70 


210 print"!CRSR-DOWN312xSPACE3If3313xS 


460 i = 1sh=l:print"ICTRL 23ISHIFT CLR3" 


470 print"IH0ME3ICTRL 13" 


220 print"!CRSR-DOWN312xSPACE3If5 313xS 


480 fora=lto4:print"ICTRL 93ISPACE3E" 
forb=ito3sprint"ICTRL 93ISPACE3 *" 


230 print"ICRSR-D0WN3I2xSPACE3If73 I 3 xS 


nextb,as print"ICTRL 93I2xSPACE3" 


PACE 3 d1gitaa11SPACEIgeluid!SPACE 3 a 


print"ICTRL 93Z 


next:gosuböiOsprint 


240 print"!CRSR-DOWN 312xSPACE311SPACE3 


500 print"ICRSR-D0WN3ICTRL 23ICTRL 93 


rsrICTRL 13ICTRL 03=ontwerpenI3xSP 


ACE3ICTRL 23ICTRL 93spatieICTRL 13 


ICTRL O3=toon!SPACE3uit/aan" 


510 print"ICTRL 23ICTRL 930-91SPACE3IC 


270 gosub750:prInt"I2xCRSR-DOWN3ICTRL 
23ISPACE3doorISPACE3midde1ISPACE3 


PACE3ICTRL 23ICTRL 93ISPACE3 +1SPAC 


E3-I2xSPACE3ICTRL 131CTRL 03 


520 prlntspc!17)"ICTRL 23ICTRL 93I3xSP 


280 print»!SPACE 3 v1aISPACE 3 deISPACE 3 s1 


print"ICTRL 23ISPACE 


530 print"!SPACE3 £I3xSPACE3 


4)"ICRSR-LEFT3ISPACE 3" 


itow%(c f a)+l:pokel 


705+a-b*40 f 160s nextb,a 


ifa=145andw%<l 


300 print"ESPACE3 moge lijk." 

310 print"ESPACE3deESPACE3 goIf ESPACE3w 
o r d t E SPACE 3 b i j E SPACE 3 het C SPACE 3 ont 

werpenESPACE3zicht-E2xSPACE3baarES 


5thenw%(c,h) ~v%+l :gosub800:goto560 


570 ifa=17andw%>0thenw%(c,h)=w %-1 


b800:goto560 


580 ifa-157andh>lthenh 


print"E SPACE 3 die E SPACE 3 te E 7xSPACE 3 
veranderen C SPACE 3is E SPACE 3 d.m.v.E S 
PACE3deESPACE3cursortoetsen." 


a-48:goto460 


E 3 E CRSR-UP3 £ E3xSPACE 3 = "i"E CRSR-LEF 


340 print"E SPACE 3 en E SPACE 3 de E SPACE 3 go 1 
f-E2xSPACE31engteESPACEl(dusESPACE 
3ookESPACE3deE SPACE3 f requentie)ESP 


650 prlnt"ESHIFT CLR3ECTRL 13":gosub75 
O:print"ECTRL 23E2xCRSR-D0WN3E2xSP 


peek(40934) 


ACE3 +/ 


660 Input"ECRSR-D0WN3 E 2 xSPACE 3 
PACE3 go 1 fIengteESPACE3<1-2 


350 print"toetsen." 


360 gosub820:gosub750sprint"ECTRL 23E2 


SR-RIGHT3ECOH B3E3xCRSR-LEFT3 
ifa>0anda<256thenpoke40934.a 


xCRSR-DOWN 3 E SPACE 3 de E SPACE 3 


P r int"E SPACE 3 voor geprogrammeerd 


380 pr i n t" E CRSR-DOWN 3 E SPACE 3 5 E SPACE 3 <~E 
SPACE 3 anharmonische E SPACE 3 E o 3 -k1an 


sys40908:return 


390 pr i nt" E SPACE 3 6 E SPACE 3 <-E SPACE 3 har mo 
nischeESPACE3sinusgo 1 f" 

400 pr i n t" E SPACE 3 7 E SPACE 3 <-t SPACE 3 b 1 ok / 


a=asc(a$)sifa<133ora>136then720 
a=a-132:return 

print"ISHIFT CLR3ICTRL 13ICRSR-D0 

N3";s gosub760:prlntspcCIO)"ECTRL 
3digiESPACE3go 1 fontwerperECTRL 13 
Jgosub760:return 


410 pr Int" E SPACE J 8 E SPACE 3 <-ESPACE 3 drieh 
oek/triangelgolf 

420 pr i n t" E SPACE 3 9 E SPACE ]f.fRPArPi, aQrt + 

















760 fora=0to9:print"CDEEEDCFRRRF";:nex 
t 

770 return 

780 geta*:ifa$=""then780 
790 a=asc(a$)sreturn 

800 b=w%(c f h):poke!625+h-(b-l)*40,160: 

pokel625+h-b#40,32:return 
810 pokel745+h,30:pok©1746+h,32:pokel7 
44+h,32:return 

820 pokel98,O:waltl98,1:return 
830 data 120,169,0,141,3,220,141,17,20 
8 

840 data 173,1,220,133,255,162,0,189,6 
4 

850 data 3,141,32,208,141,24,212,160,3 
4 

860 data 136,208,253,232,138,41,31,170 

870 data 172,1,220,196,255,240,230,169 
880 data 27,141,32,208,141,17,208,88,9 
6 

** EINDE LISTING digi ontwerp 


REGEL 

1 

66 

REGEL 

490 

187 

REGEL 

2 

165 

REGEL 

500 

205 

REGEL 

3 

240 

REGEL 

510 

154 

REGEL 

4 

129 

REGEL 

520 

152 

REGEL 

5 

143 

REGEL 

530 

110 

REGEL 

REGEL 

100 

110 

109 

160 

REGEL 

REGEL 

540 

550 

62 

44 

REGEL 

120 

63 

REGEL 

560 

159 

REGEL 

130 

188 

REGEL 

570 

228 

REGEL 

140 

205 

REGEL 

580 

119 

REGEL 

150 

164 

REGEL 

590 

122 

REGEL 

160 

140 

REGEL 

600 

12 

REGEL 

170 

255 

REGEL 

610 

73 

REGEL 

180 

237 

REGEL 

620 

13 

REGEL 

190 

48 

REGEL 

630 

24 

REGEL 

200 

176 

REGEL 

640 

36 

REGEL 

210 

225 

REGEL 

650 

81 

REGEL 

220 

181 

REGEL 

660 

66 

REGEL 

230 

202 

REGEL 

670 

156 

REGEL 

240 

206 

REGEL 

680 

33 

REGEL 

250 

71 

REGEL 

690 

30 

REGEL 

260 

127 

REGEL 

700 

142 

REGEL 

REGEL 

REGEL 

270 

280 

290 

252 

106 

131 

REGEL 

REGEL 

REGEL 

710 

720 

730 

16 

102 

59 

REGEL 

REGEL 

REGEL 

300 

310 

320 

93 

226 

246 

REGEL 

REGEL 

REGEL 

740 

750 

760 

61 

195 

238 

REGEL 

330 

114 

REGEL 

770 

142 

REGEL 

REGEL 

340 

350 

71 

45 

REGEL 

REGEL 

780 

790 

108 

55 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

360 

370 

380 

390 

400 

410 

420 

107 

HO 

197 

93 

20 

74 

197 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

800 

810 

820 

830 

840 

850 

860 

221 

251 

40 

59 

75 

58 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

430 

440 

450 

460 

470 

480 

141 

173 

130 

64 

128 

65 

REGEL 

REGEL 

READY. 

870 

880 

29 

88 



Het programma van E J.G. de Neve uit Oostzaan is be¬ 
doeld om het kille computerscherm op te fleuren met een 
zomers stukje natuur. Een gemoedelijk zwermpje libe- 
lles fladderen niets vermoedend tussen alle basic-regels 
door. Nadat we onze 64 op deze manier tot biocomputer 
hebben gepromofeerd, kunnen we onder toeziend oog 
van de 8 insekten verder werken in basic. 


O ren *## libel ie animatie *** 

1 rem door 

2 rem e.j.g. de neve 

3 rem uit oostzaan 

4 rem 

100 print w CSHIFT CLR3CCRSR-DOWN]tSPACE 

Igeduld.C6xSPACE3" 

110 fora=49152to49152+264:readd:pokea, 
d:nex t 

120 print"tSHIFT CLRUCTRL 23C7xSPACE3 
*#* CSPACE31ibelletSPACE3animatieCS 
PACE3 ***tSPACE3" 

130 print"CCRSR-DOWN]t8xSPACE3oproepen 
C SPACE 3 me11SPACE 3 sys t SPACE 349152" 
140 print"C10xSPACE3interrupttSPACE3pr 
ogramma," 

150 print"töxSPACE3dustSPACE3werkttSPA 

CE3 tege1ijkt SPACE3met t SPACE3basic. 
n 

ISO print"ECRSR-D0UN3C5xSPACE]haa1CSPA 
CEldetSPACE3natuurtSPACE3intSPACE] 
uwtSPACE3c-64CSPACE3!" 

170 print"CSxSPACE3druk[SPACEleentSPAC 
E 3 toets C SPACE 3 ent SPACE 31 et C SPACE 3 o 
p. . . " 

180 pokel98,O:walt198,l:sys49152 
190 fort=lto3000:next 

200 pokel98,O:print"[9xCRSR-D0UN3":end 
210 data 120, 76, 143, 192, 120, 198, 

251, 208, 19, 169, 3, 133 

220 data 251, 234, 234, 162, 7, 189, 2 
48, 7, 73, 1, 157, 248 

230 data 7, 202, 16, 245, 162, 15, 160 

, 128, 140, 18, 212, 173 
240 data 27, 212, 41, 1, 208, 6, 254, 

O, 208, 76, 51, 192 
250 data 222, O, 208, 202, 16, 237, 17 
3, 31, 208, 208, 225, 76 
260 data 49, 234, O, O, 2, O, O, 207, 
O, 4, 223, 173 

270 data HO, 159, 85, 84, 34, O, O, 4 
1, O, O, 136, 64 

280 data O, 16, O, 20, O, O, 42, O, O, 
84, O, O 

290 data 170, O, O, 84, O, O, 168, O, 

1, 80, O, O 

300 data 160, O, 1, 64, O, 2, 128, O, 

1, O, O, 2 

310 data O, O, 207, O, 4, 219, 173, 11 
O, 157, 85, 84, 34 

320 data O, O, 41, O, O, 136, 64, O, 1 
6, O, 255, 120 































330 


340 


350 


360 


370 


380 


390 


400 


410 


420 


data 169, 192, 141, 21, 3, 169, 4, 

141, 20, 3, 169, 255 
data 141, 21, 208, 169, 128, 160, 

7, 153, 248, 7, 136, 16 
data 250, 160, 160, 169, O, 234, 1 

53, 255, 31, 136, 208, 247 

data 160, 23, 185, 63, 192, 153, 4 

1, 32, 136, 208, 247, 160 

data 57, 185, 85, 192, 153, 72, 32 

, 136, 208, 247, 160, O 

data 140, 16, 208, 160, 15, 169, 1 

28, 153, O, 208, 136, 16 

data 250, 169, 255, 141, 14, 212, 

141, 15, 212, 160, 7, 185 

data 1, 193, 153, 39, 208, 136, 16 

, 247, 169, O, 141, 33 

data 208, 169, O, 141, 32, 208, 16 
9, 15, 141, 134, 2, 169 

data 1, 133, 251, 88, 96, 1, 7, 12 

, 13, 15, 10, 14, 1 


*« EINDE LISTING 




REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 


O 

1 

2 

3 

4 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 


204 

REGEL 

270 

1 

195 

REGEL 

280 

130 

166 

REGEL 

290 

243 

240 

REGEL 

300 

185 

143 

REGEL 

310 

106 

74 

REGEL 

320 

134 

171 

REGEL 

330 

10 

178 

REGEL 

340 

114 

64 

REGEL 

350 

255 

124 

REGEL 

360 

209 

27 

REGEL 

370 

121 

170 

REGEL 

380 

153 

27 

REGEL 

390 

199 

61 

REGEL 

400 

62 

219 

REGEL 

410 

108 

255 

REGEL 

420 

94 

214 




78 




147 

READY. 




159 

151 

142 



MOK 


Een aantal maanden terug hadden we een programma 
border klokje. Hierop maakte W.C.F. de Bont een varia¬ 
tie. De tijd in beeld kan worden aan- en uitgezet met 
SHIFT-CTRL. 


ïoo 

110 


rem 


120 


130 

140 

150 

160 


print"CSHIFT CLR 3C3xCRSR-DQWN3 C3xC 
RSR-RIGHT3 evenC SPACE 3 geduId w 
j =49152:fori=0tol68:readd:pokej + i, 
d:next 

Input"uren:C4xSPACE3 ";ut 

input"minuten: [SPACE] n ;mt 

input"seconden: w ;si 

pokej,val(left$(u*,l))+48:pokej+l, 

val(right$(u$,1))+48 


170 


180 


190 

200 


ÏOOO 


1010 


1020 


1030 


1040 


1050 


1060 


1070 


1080 


1090 


1100 


pokej+3,val(left*(m$,1))+48:pokej+ 

4, val<right$(m$,1))+48 

pokej+6 f val(left$(s$, 1))+48:pokej + 

7,val<right$<s$,1))+48 

sys49283 

print"aan-C SPACE 3 en t SPACE 3 uitze t te 
nt SPACE3met C SPACE3 f shift-ctr1 *" 
data 48,48,46,48,48,32, 48,48,32,48 
,48,1,234,234,234,234 
data 169,15,157,29,216,189,0,192,1 
29 * 4,202,16,242,76,49 
data 234,162,10,254,0,192,189,O,19 
2,201,58,208,99,169,48,157 
data O,192,16,66,169,58,141,5,192, 
16,6,208,211,240,223,234 
data 234,202,254,0,192,189,0,192,2 
01,54,208,68,169,48,157,0 
data 192,224,0,240,201,202,202,224 
,1,208,200,238,1,192,173,1 
data 192,201,52,208,196, 173,0,192, 
201,50,208,189,169,48,141,1 
data 192,141,0,192,16, 168,165,2,23 
4,105,32,133,2,16,181,169 
data 32,16,179,120,169,33,162,192, 
141,20,3,142,21,3,88,96 
data 173,141,2,201,5,208,12,169,1, 
77,11,192,141,11,192,208 
data 154,240,154,173,11,192,16,247 

9 O 


** EINDE LISTING klok 


REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 


ÏOO 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

1000 

iOlO 


143 

221 

105 

241 

207 

4 

102 

54 

72 

168 

77 

64 

213 


REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 


1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 


52 

187 

246 

247 
85 
231 
137 
170 
122 


READY. 


Van W.C.F. de Bont kregen we een aantal programma’s 
toegestuurd. Een van de programma’s is schuinschrift. 
Een leuk programma dat verder geen uitleg nodig heeft. 
En kan zonder verdere handelingen direkt gerunt wor¬ 
den. (wel natuurlijk eerst saven). 


10 

20 

30 

40 

50 

60 


100 

HO 

120 


rem italics / commodore-64 
rem door helmut de bont 
rem reusel 04976 - 2583 
rem 
rem 

print"C SHI FT CLR3 12xCRSR-D0WN3 C 1 Ox 

CRSR-RIGHT3 even C SPACE 3 gedu1d t SPACE 
Ja.u.b..." 

for 1=49152 to 49239 
read a$ 

S = asc(Ieft*(a*,l));if s>64 then 
s = s-7 
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100 poke53271,62:poke53277,62 
110 pokex,150spokey,210 

120 a $= w rrrrrrrrrrrrrrrrrrrrrrrrrrrrrr 


130 s = (s-48) * 16 

140 u — ascCrightKal, 1) ) : if u)64 then 
, u = u - 7 

150 u = u-48+s;poke 1,u:i=i+u:next 
160 if 109832 then print"f outESPACE] i 
nE SPACE]datarege 1s!":stop 
170 printchrl(147) 

180 sys 49197 
190 s 

200 data ea,ea,ea,ea,ea,a9,01,8d 
210 data 19,dO,ad,16,dO,49,Ol,8d 
220 data 16,dO,a5,02,c9,f6,f0,Ob 
230 data 18,69,04,85,02,8d,12,dO 
240 data 4c,81,ea,a9,32,85,02,8d 
250 data 12,dO,4c,31,ea,78,a9,32 
260 data 85,02,8d,12,dO,ad,11,dO 
270 data 29,7f,8d,11,dO,a9,01,8d 
280 data Od,dc,8d,ia,dO,a9,00,a2 
290 data cO,8d,14,03,8e,15,03,58 
300 data 60,cO,8d,14,03,8e,15,03 


130 b$="FFE4xSPACE]FFE4xSPACE]FFE4xSPA 
CE]FF E 4x SPACE]FF £ 4xSPACE3 F" 

140 x2=0:x3=255:x4=0:x5=255:x6=0 
150 y2=180:y3=155:y4=130 ï y5 =105:y6=80 
160 pokeo,63 

170 print"CSHIFT CLR3E3xCRSR-D0WN3";a$ 
180 print"E6xCRSR-DQWN3" ; b$ 

190 print"E8xCRSR-DOWN]";a$ 

200 print"£HOME]£2xCRSR-DOWN3" 

210 forc=Ito18sprinttab(31)"ECOM K3"sn 
ex t 

220 pokeo,63:pokex,150:pokey,210 
230 print"£HOME]levens";wi"ESPACE]punt 
en";pu;"E 3xSPACE3 hi-score";hi 
240 x2=x2+10:x3=x3-17:x4=x4+5:x5=x5-9: 
x6=x6+18 

250 ifx2>250 then x2=0 
260 if x3<0 then x3=255 
270 if x4>250 then x4=0 
280 ifx5<0 then x5=255 
290 ifx6>250 then x6=0 

300 pokex,xi:pokex+2,x2:pokex+4,x3:pok 


READY 


Het spel wiebel, ook van Richard Tol, is duidelijk geba¬ 
seerd op frogger. De bedoeling is Wiebel over de weg te 
sturen zonder dat hij (of is het zij) geraakt wordt. Na 10 
keer krijg je een aantal bonuspunten en loopt Wiebel be¬ 
duidend minder snel. 


1 rem wiebel / commodore-64 

2 rem door richard van tol 

3 rem uit woerden 
10 hi=0 

20 x=53248:y=53249:k1=53287:o=53269:p 
=2040:x1=150:yl=210:1e=20: pu=0 :wi= 


Ons programma 
computertafels 
bestaat uit 
vele afmetingen 

en uitvoeringen. 




30 poke53280,O:poke53281,O:poke646,1 
40 pokep,13 

50 forc=lto5:pokep+c,14:next 

60 sl=13*64:s2=14*64:v=0 

70 forc = sltosl+62:readz s pokec,z:next 

80 forc=s2tos2+3i:readz:pokec,z:next 

85 forc=928to958:pokec,Osnext 

90 forc=Oto5spokek1+c,1:next 


Ook leverbaar 
met zwenkwielen 


Wij S 
geven u graag 
alle informatie. 


PROJECTA 

Postbus 191 6000 AD Weert 

Tel.: 04950-35118 Telex: 37588 proje n.l 








Pp§§ 
























380 if bo=3 or bo=5 ar bo=9 or bo=17 o 
r bo=33 then goto530 
390 if yl<=50 then v=v + i:pu=pu+10:xi = l 
50:yi=210:goto230 
400 if v=10 then 620 
410 goto230 

420 data 0,0,0,0,0,0,0,4,64 

430 data 0,2,128,0,2,128,0,3,128 

440 data 14,7,192,14,13,224,15,255,176 

450 data 7,255,120,0,28,120,0,57,248 
460 data 0,7,244,0,63,236,0,15,216 
470 data 0,71,244,0,127,224,0,63,192 
480 data 0,70,192,0,28,112,0,124,60 
490 data 60,60,0,60,60,0,255,254,0 
500 data 128,3,192,128,3,224,128,3,224 
510 data 128,3,224,128,3,192,255,254,0 
520 data 60,60,0,60,60 
530 xi = 150syl=210spokex,xlspokey, yl 
540 forc=ito240:poke53281,csnext 
550 poke53278,O:wi-wi-1 
560 ifwi<0 then580 
570 goto220 

580 poke53269, Os pr int"C löxCRSR-D0WN3 "; 
tab(14) ; w £ CTRL 9 3 C CTRL 23£SPACE3ga 
me i SPACE 3 over t SPACE 3" 

590 ifpu>hi then hi=pu 
600 getc$:ifc$ = B,, then 600 
610 restore:goto20 

620 pokeo,1:pokeS3271,1:poke53277,1 
630 pokey,150:pokex,150 

640 print"£SHIFT CLR3C7xCRSR-D0WN3 £SPA 
CE 3 j e£SPACE 3 heb t £ SPACE 3 viebe1ESPAC 
E 3 ove r £ SPACE 3 de C SPACE 3 10 E SPACE 3 we g 
entSPACE3gezet." 

650 print"£ SPACE3kant SPACE3 jetSPACE3he 
t £ SPACE1ook £ SPACE 3 me t CSPACE 3 een £ SP 
ACE3 tragere£ SPACE3wiebeI. w 
660 print"E SPACE 3 j e E SPACE 3 krij g t £ SPACE 
3 250 E SPACE 3 p tn £ SPACE 3 en E SPACE 3 een £ 
SPACE3extra£SPACE3leven!!" 

670 wi=wi+1:pu=pu+250:c$=" w 
680 getc$:ifc$=" B then 680 
690 1e=Ie-3:ifIe<9 then le=9 
700 v=0:gotolOO 


PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT PRINT-OUT • PRINT-OUT 


REGEL 

1 

178 

REGEL 

160 

123 

REGEL 

2 

148 

REGEL 

170 

67 

REGEL 

3 

149 

REGEL 

180 

228 

REGEL 

ÏO 

115 

REGEL 

190 

5 

REGEL 

20 

162 

REGEL 

200 

18 

REGEL 

30 

243 

REGEL 

210 

88 

REGEL 

40 

119 

REGEL 

220 

79 

REGEL 

50 

219 

REGEL 

230 

27 

REGEL 

60 

14 

REGEL 

240 

206 

REGEL 

70 

165 

REGEL 

250 

112 

REGEL 

80 

163 

REGEL 

260 

121 

REGEL 

85 

143 

REGEL 

270 

116 

REGEL 

90 

237 

REGEL 

280 

125 

REGEL 

100 

154 

REGEL 

290 

120 

REGEL 

HO 

154 

REGEL 

300 

144 

REGEL 

120 

201 

REGEL 

310 

156 

REGEL 

130 

222 

REGEL 

320 

15 

REGEL 

140 

230 

REGEL 

330 

166 

REGEL 

150 

233 

REGEL 

340 

162 


167 

169 

95 

209 

108 

51 

30 

209 

219 

28 

176 

71 

172 

113 

66 

25 

26 
251 
152 
224 
4 

82 


REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 


350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 


REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 


570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 


29 

21 

1 

103 

177 

169 

157 

154 

190 

107 

219 

111 

23 

140 


READY. 




PICCOLO 016 


In dit spel van Peter Boersma uit Stadskanaal bent u de 
piccolo die de post naar kamer 0 moet brengen. Nu is dat 

in normale hotels geen probleem alleen.is dit geen 

normaal hotel. Dit is een doolhof. Het doolhof bevat 181 
kamers en is verdeeld in twee etages, de tweede etage is 
pas te bereiken als de eerste geheel doorlopen is. Per ka¬ 
mer wordt een plattegrond gegeven en de mogelijke uit¬ 
gangen. Heel veel sterkte en denk om de nachtrust. 


1 rem 


3 rem — 


4 rem — 


5 rem — 


******* piccolo ***#**##*##* 
door : peter boersma 1987 
voorstekamp 62 stadskanaal 
tel.:(05990-) 20402 


6 rem —social software services (c) 


7 rem 


8 rem -- voor : commodore info 

9 rem- 


10 trap 30 
20 goto 40 

30 scnclr:printerr$(er)"error£SPACE3i 
n w el:helprend 

40 gosub 1000:ren titel+intro 
SO scnclr:char 1,11,11,"eventSPACE1ge 
duldtSPACEla.u.b." 

60 dim k$(9,9) 

70 for y=lto9:forx=lto9 
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440 print"E2xCR5R-D0WN3#**##*ESPACE3ka 


then print"C3xCRSR-DOWN3 E 


öloveral ECTRL 03ESPACE3heen» 


450 print"E3xCRSR-D0WN3 E3xSPACE3 jet SPA 


CE3kuntESPACE3ECTRL 93nïetCCTRL O 


then o$ 


then w$ 


print 


then n$ = " ESHIFT +3E3xSPAC 


220 print"E3xCRSR-D0WN3 CSPACE3 tCTRL 63 


E3CSHIFT +3 


then u$ 


E3 CSHIFT +3 


480 print"ECRSR-D0WN3 ECOM 63situatie:C 


C SPACE3 hand.C CTRL 8 3 probeer C SPACE 


490 printtab(10)w$ 


500 printtab(10) w$ 


E SPACE 3lïJVtfiE SPACE 3 


250 print"E CRSR-DOWN 3 E SPACE 3 dat E SPACE 3 


kun E SPACE 3 j e C SPACE 3 doen E SPACE 3 door 


520 printtabE10)u$ 


ECTRL 83 


530 print w E 2xCRSR-D0WN3 E4xSPACE3 waar E S 


37ESPACE3 <n/o/z/w) 


PACE 3 de E SPACE 3 richting E SPACE 3 die E S 


PACE 3 j e E SPACE 3intypt 


270 print"E CRSR-DOWN 3 E SPACE 3 dat E SPACE 3 


z=l then gosub 630 


CE3 voorE SPACE3 noordESPACE3(boven) 


and o=l then gosub 630 


voor 


E3zuidESPACE3(onder) 


300 print"E9xSPACE3 * o’ESPACE3voorESPAC 


then x=x+lso=0:return 


320 print"E2xCRSR-DQWN3E3xSPACE3|ïJCCTRL 


ESPACE3ECTRL 03 


print"E SHIFT CLR 3 E CRSR-DOWN3 E CTRL 


330 gosub 1490:colorl,8,5:scnclr 


360 if y<1 and el=0 then goto 2010 


ÏOOO scncirscolorO,1sco1or1,8,4sco1or4 


ge 1 ukt 


ÏOIO printchr$(27) 


print"ESHIFT CLR 


3 E 7xCRSR-DOWN3 


1020 colorl,8,7:printspc(13)"EC0M A3I.U 


IUIUIESHIFT -3üie*87 


1030 color1 t 8 t 5s printspc(13)"E4xSHIFT 


3 E SPACE 3 E SHIFT 


3ESPACE3byESPACE3 


$+ehr$(13)+"E3xSPACE3oost 


1040 co!orl f 8,4sprintspc(13)"EC0M Q3KES 
HIFT -3JKJKJKESHIFT -3JKESPACE3sss 


ESHIFT -3 


400 if mid^(k$(x > y) > a,i) 


1050 colorl,8 f 3sprintspc(12)"UEC0H E3ES 


ESHIFT -3 


HIFT * 3 ECOH E3E6xSHIFT *3EC0M E3E4 


1060 coIori,8,4:printspc(12)"ESHIFT -3E 


E SHIFT + 3 E3xSHIFT # 3 E SHIFT ^3 


b" then z$=z 


1070 colorl,8 # 5:printspc(12) w JE14xSHIFT 


E SHIFT -f 3 E3xSHI FT * 3 E SHIFT +3 


1080 co1orl,2,7sprintchrt(142)chr$(8) 

1090 t* = "-I7xSPACElhal loC2xS 

CE 3 en12xSPACE J we1 kom12xSPA0E1hi i 
















xSPACE)*piccolo»" 

1100 t$=t*+",hetESPACE3nieuwsteESPACE3p 
rodukt£SPACE3 vanESPACE3 f soc1alE SPA 

CE3softwareESPACE3services*ESPACE3 
(sss)* 

1110 t*=t*+".C3xSPACE3inESPACE3ditESPAC 
E3doo1 hof-spe1CSPACE 3 bent £ SPACE 3 uE 
SPACE 3 een E SPACE 3 piccolo ESPACE 3 d i e E 
SPACE3vanESPACE3zijn/haar" 

1120 t$=t*+"ESPACE3baasESPACE3 een ESPACE 
3 opd r acht ESPACE 3krijgt.E2x SPACE 3 d r 
uktSPACE3optSPACE3eenCSPACE3 toetst 
SPACE 3 on» E SPACE 3 d i e E SPACE 3 opd racht" 
1130 t $ = t $ ♦ " ESPACE3 teCSPACE3wetenCSPACE 

3 te [SPACE 3 komen....-" 

1140 get b$:if b$<>"" then goto 1200 
1150 tS^mld*(t$,2) + 1ef t$(t$, 1) 

1160 char 1,13,11,left$(t$,14) 

1170 forc-lto25snextc:gotoll40 
1180 : 

1190 rem - gegevens - 

1200 color1,8,7schar 1,13,11,"ESPACE3pi 
cco1 o E SPACE 3 data£ SPACE 3" 

1210 fora=ltolOOO:nexta:scnc1r 
1220 color1,8,7:printspc(13)"ECOM A3I.U 
IUIUICSHIFT -3UI" 

1230 color1,8,8:prlntspc(13)"E4xSHIFT - 
3 CSPACE3 C SHIFT -3 ESPACE3 E5xSHIFT - 
3" 

1240 co1orl,8,3:printspc(13)"ECOM Q3KES 
HlFT - 3JKJKJKE SHlFT -3JK" 

1250 co lor 1,8,1 sprint** C 13xSHIFT «3CC0M 
E3ESHIFT «3EC0H E3E6xSHIFT *3ECOM 
E3E17xSHIFT *3" 

1260 printchr$(27)"t"; 

1270 print"£ 4xCRSR-D0WN 3 £ 4xSPACE 3 E CTRL 
6 3 we1 kom E SPACE 3 bij E SPACE 3 E CTRL 8 3 p 
lcco1 oECTRL 63" 

1280 print"E 2xCRSR-D0WN 3 E SPACE 3 ste11E SP 
ACE3 u E SPACE 3 zich ESPACE 3 eens E SPACE 3 
voor s 

1290 print"ECRSR-D0WN3E2xSPACE3uESPACE3 
bent E SPACE 3 net E SPACE 3 a1s E SPACE 3 p i c 
co1o E SPACE 3 aangenomen £ SPACE 3 en" 
1300 print"E 2x SPACE3 u E SPACE 3krijgt£ SPAC 
E 3 de E SPACE 3 opd racht E SPACE 3 om E SPACE 
3 de E SPACE 3 pos t E SPACE 3 van" 

1310 print"E2xSPACE3 ECTRL 83kamerESPACE 
3 nr.O E SPACE 3(nu1)E CTRL 6 3 E SPACE 3 te 
ESPACE3bezorgen." 

1320 print"E CRSR-DQWN 3 E SPACE 3 nu E SPACE 3i 
s E SPACE 3dat E SPACE 3in E SPACE 3 norma 1e 
E SPACE 3 hote1s E SPACE3niet E SPACE 3 zo E 
SPACE3" 

1330 print"E2xSPACE3moei1ijk,al een....i 
n E SPACE 3 dit E SPACE 3 ho te1E SPACE 3 ligt 

«i 

1340 print"E 2xSPACE 3 datE SPACE 3iets ESPAC 

E 3 ander s." 

1350 gosub 1490 

1360 print"E CRSR-DQWN 3 E SPACE 3 de E SPACE 3 a 
rchitect E SPACE3 vanCSPACE3 dit E SPACE 
3hotelESPACE3wasESPACE3op" 

1370 print"E2xSPACE3z’nESPACE3minstESPA 
CE3gezegdESPACE3niet£SPACE3he1emaa 
1E SPACE3bij" 

1380 print"£2xSPACE3z*nE SPACE3 positieve 
n.(u E SPACE 3 kent E SPACE 3 da t C SPACE 3 we 
ls" 


1390 print"C2xSPACE3eenESPACE3avondjeES 
PACE 3 s tevig E SPACE 3doordrinkenE SPAC 
E3enESPACE3een" 

1400 print"E2xSPACE3koppijnESPACE3datES 
PACE 3 j e E SPACE 3 de E SPACE 3 vo1gende E SP 
ACE 3 ochtend" 

1410 print"E2xSPACE3hebt!)."sprint"ESPA 
CE 3 goed,het E SPACE 3 hote 1;" 

1420 print"E CRSR-DOWN 3 E SPACE 31)E SPACE 3 e 
r E SPACE 3is E SPACE 3 maar E SPACE 31E SPAC 
E3verdieping sdeE SPACE3 vierde." 

1430 prin t"E SPACE 3 2)E SPACE 3 er E SPACE 3 zij 
n E SPACE 3 kame rnummer s E SPACE 3 die E SPA 
CE 3 vaker E SPACE3 dan" 

1440 print"E4xSPACE 31E SPACE 3 keer E SPACE 3 
voorkomen." 

1450 print"£SPACE33)ESPACE3sommigeESPAC 
E 3 kamernummer s E SPACE 3 zij n E SPACE 3 e r 
E SPACE 3 n i e t. " 

1460 print"E SPACE 3 4)E SPACE 3 de E SPACE 3 vie 
rde E SPACE3 verdieping E SPACE 3is E SPAC 
E3eenESPACE3doolhof!" 

1470 print"ECRSR-DOWN3 ESPACE3oftewe1s ES 
PACE3ECTRL 83veelESPACE3succesEC 
TRL 63" 

1480 gosub 1490:return 

1490 print"E2xCRSR-D0WN3 E8xSPACE3 ECTRL 
23drukESPACE3opESPACE3 E ECTRL 93ret 
urnECTRL 033ECTRL 63" 

1500 geta$ s ifalOchrl (13) then 1500se 1 ser 
eturn 

2000 rem -gelukt ! - 

2010 scnclr:el=l 

2020 print"ECTRL 83E4xCRSR-DOWN3E2xSPAC 
E3hetESPACE3isESPACE)jeESPACE)gelu 
kt! !" 

2030 print"E 2xSPACE 3 j e E SPACE 3 s taat E SPAC 
E 3 voor E SPACE 3 de E SPACE 3 trap E SPACE 3 n 
aar E SPACE 3 de E SPACE 3" 

2040 print"ESPACE3vijfdeESPACE3verdiepi 
ng!!!! 

2050 fora=lto2000:nexta 

2060 print"E CRSR-DQWN 3 E SPACE 3 wacht E SPAC 

E3e ven ESPACE 3.ECTRL 83vijfde 

ESPACE3verdieping???ECTRL 63" 

2070 print"E3xSPACE 3is E SPACE 3 e r E SPACE 3 d 
an E SPACE 3 een E SPACE 3 vij f de E SPACE 3 ve 
rdieping???" 

2080 print"E SPACE 3 j a,hoor;E SPACE 3 E CTRL 
9 3 e r E SPACE 3is E SPACE 3 no g E SPACE 3 een E 
SPACE3 vij fde" 

2090 print"£3xSPACE3ECTRL 93verdieping! 
üECTRL 03" 

2100 print"ESPACE 3 en E SPACE 3 j e E SPACE 3 kun 
t E SPACE 3 er E SPACE 3 we 1E SPACE 3 op E SPAC 
E3rekenenESPACE3dat£SPACE3die" 

2110 print"E2xSPACE3nog E SPACE31 astlger E 
SPACE3 is!!" 

2120 print"ECRSR-DQWN3 E SPACE3 dat ESPACE 3 
wordt E SPACE 3 dus E SPACE 3 weer CSPACE 3 z 
oeken!!" 

2130 gosub 1490:scnclr 
2140 for a=l to 15 
2150 for v=8 to 3 step -2 
2160 volv-a/5:sound3,550,1ssound3,565,1 
s sound3,580,1s sound3,595,1:sound3, 
610,1 

2170 next v,a:scnclr 
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2180 char 1,11,11,"[CTRL 73evenCSPACEJg 
eduld[SPACE3a. u. b. w 
2190 for y=0 to 9 
2200 for x=0 to 9 
2210 read k$(x,y):next x:next y 
2220 data blo,br,bl,bo,br,bl,bo,b,bo,or 
2230 data 1br,1»ro.1rb, 1ro,1ro,1b.ro,1b 


4000 prlnt w [SHIFT CLR3[6xCRSR-D0WN3"; 
4010 co 1 orl, 8, 7: printspc (10) w [.COM A3[SH 
IFT # 3IU[SHIFT *3IU[SHIFT *]IUI[SP 
ACE3UI[3xSPACE3U[SHIFT * 31" 

4020 co1orl,8,6:prIntspc(10) w [SHIFT -U 
SPACE3[2xSHIFT -3[SPACE3[2xSHIFT - 
3[SPACE3[3xSHIFT - 3[SPACE3[2xSHIFT 
-3[SPACE3nr[SHIFT - 3[SPACE3[SHIFT 


4030 co lor 1,8, 5:printspc( 10) **[C0M Q3IC0 
M R3K[SHI FT - 3[SPACE3[2xSHIFT -][S 
PACE3[2xSHIFT - 3J[SHIFT *]K[SHIFT 
- 3[3xSPACE3 C SHIFT - 3[SPACE 3[SHI FT 


4040 co lor.1,8,4:printspc(10) w [SHI FT -3J 
IJ[SH1FT #3KJ[SHIFT *3K[SHIFT -][3 
xSPACE3[SHIFT - 3[3xSPACE3J[SHIFT * 
3K" 

4050 colorl,8,3:printspc(10) w [COM E3[SH 
IFT * 3[COM E3[6xSHIFT *3[C0M E3[3x 
SHIFT * 3[COM E 3[6xSHI FT * ] " 

4060 print w [3xCRSR-D0WN3 w ;:gosub 1490 
4070 run 


2320 x =0:y=9:co 1or1,8, 4 

2330 scnclrrif y<0 then goto 4000:rem e 
Inde 2 

2340 n=0:z=0:o=0:w=0:n$ =,n, :o$= Bn :u$= nn : 
w$= ww : gaa=0 

2350 gosub 370:if gaa=l then goto 2340 
2360 goto 2330 
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46 if g<i or g>90 then goto 42 

47 forn=0to90:box0,40,110,44,140,n:ne 
xt 

48 gosub6:for1=1to300snext1:sound3,1, 


49 x=42:y=125sv=~v:t=0 

50 draw 0,x,ysdraw 0,x,y-l 

51 x=x+g/14+i/9:y-y+v/2 

52 if t>0 then goto 54 

53 if y<-20then v =-vst=t+l 

54 draw l,x,y:draw l.x.v-1 


55 lf x>u-i and x<u+10 then goto 59 


56 if y>160 then goto 41 


57 if x>325 or x<0 then goto 41 


59 if y>w-2 and y<w+2 then goto 61 

60 goto 50 

61 vo18:drawO,x,ysdrawO,x,y-l:soundl 


62 vol 6:sound 3,10,20:color 1,9,5 


completed 
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70 colorO,1sprint tab(12) 
CE 3 w ;f $ 

"missiontSPA 

71 for 1= 

72 if f*= 

1 to 1500:next 1:sc= 
"failed" then goto 1 

: sc+2 
:e1se go 

to2 
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Peter Boersma maakt van het totale geheugen van de c- 
16 gebruik bij het programma CITY-DESTROYER. 
Daarom is het zaak de regelnummering niet te verande¬ 
ren. Het spel maakt gebruik van het grafische scherm. De 
bedoeling van het spel is het afwijkend gekleurd flatge¬ 
bouw te vernietigen. Dit kan gebeuren met het kanon 
links op het scherm. Er moet rekening worden gehouden 
met: de wind, de vuursnelheid en het aantal graden waar¬ 
onder gevuurd moet worden. 


1 sc=5 

2 serie Ir: co Ior0,7,2:colorl,2:color4, 
1 

3 graphic 2 ,lsi=int(rnd(l)*20-9):i$ = s 
tr$(i ) 

4 color l,2:vol 8 

5 g=20:gosub 6 :goto 9 

6 boxl,40,110,44,140, g 

7 char 1 , 10 , 0 ,"C4xSPACE3":sc$=str$<s 
c) 

8 char 1 , 10 ,O,sc$sreturn 

9 char1,37,O,i$:charl,32,O,"wind:" 

ÏO char 1,O,O,"bu11•1eft:" 

11 draw 1,42,125 to 30,145 

12 draw 1,42,125 to 47,145 

13 draw 1,25,145 to 50,145 

14 draw 1,25,145 to 0,160 

15 draw 1,50,145 to 200,160 

16 draw 1,0,160 to 200,160 

17 color 1,6,5:paintl,3,159 2 co 1or 1,2 

18 draw 1,195,159 to 320,159 

19 a=205:b=6:q=0:gosub 24 

20 a=220;b=12:q=ö:gosub 24 

21 a= ï 211 2 b = 13 2 q=41 2 gosub 24 

22 a=300:b=8:q=35:gosub 24 

23 a=306 2 b = 14 2 q=0 2 gosub 242 goto 29 

24 ya=rnd(1)*40+100-q 

25 color l,l:box 1,a,ya,a+b,160 

26 paintl,a+b-5,ya+2:paintl,a+b-4,ya+ 
2 

27 forc=atoa+bstep3:fore=ya+Ito159ste 
p3 

28 drawO,c,e 2 nexte 2 nextc 2 co 1or1,2 2 ret 
urn 

29 u=rnd(1)*45+240 2 w=rnd(1)*50+75 

30 color l,16,5:draw l,u,w to u+10,w 

31 draw l,u,w to u,160 

32 draw l,u+10,w to u+10,160 

33 draw i,u,160 to u+10,160 

34 paint l,u+5,w+5 

35 for d=u+2 to u+10 step 3 

36 for f=w+i to 159 step 3 

37 draw 0,d,f:next finext d 

38 paint l,u+5,w+5 

39 char 1,int(u/ 8 )-1,5,"city" 

40 color 1, 2:f or1=1to250 2 next 

41 sc=sc—1:if sc<0thenf $ = n f ai 1 ed":goto 
69 

42 print w [HOME3”;:forn=lto20:print:ne 
x t 

43 Input "vuurkracht ( 1 - 10 ) w ;v.»v = ll-v 

44 input"graden(l-90)";g 

45 if v<l or v>10 then goto 42 


















Vragen van gebruikers 

E r blijkt in toenemende mate een grote behoefte te bestaan aan de moge¬ 
lijkheid om vragen te stellen over allerlei Commodore-onderwerpen. Ook 
deze keer gaat Jan Bodzinga weer in op een aantal problemen. Uw vragen - 
maar ook uw tips en handigheidjes - zijn van harte welkom. 


Conversie 

De heer Benningshof uit Den Haag 
komt met een vraag die betrekking 
heeft op de mogelijkheden van data- 
conversie van C-64 gegevens naar 
andere systemen. Hij vraagt zich af, 
wat hiervan de mogelijkheden zijn. 


Dit is zeker niet de enige brief die we 
over het fenomeen data-conversie 
hebben ontvangen. Het lijkt erop, 
dat nogal wat serieuze compute- 
raars hun C-64 of andere (kleine) 
huiscomputer in de kast willen zet¬ 
ten en er een grotere, meer profes¬ 
sionele machine voor in de plaats 
willen aanschaffen. Eén van de pro¬ 
blemen, die daarbij om de hoek 
komt kijken, is de vraag of het moge¬ 
lijk is bestaande C-64 bestanden 
over te zetten naar met name IBM- 
PC en compatiblele formaten. Zo 
ook deze briefschrijver. 


Het antwoord op deze vraag is simpel, 
maar heeft wel de nodige complica¬ 
ties. In principe kunnen alle bestan¬ 
den zonder te veel moeite, via een in¬ 
terface, van de C-64/C-128 worden 
overgezet naar een PC-diskformaat. 
Voor Amiga-types is het helemaal 
geen probleem, mits de MS-DOS 
emulator beschikbaar is. In het on- 
dehavige geval gaat het om een serie 
C-64 files, waarbij helaas geen gege¬ 
vens zijn verstrekt over de aard van de 
data. 

Om dergelijke bestanden -in hun ge¬ 
heel- te kunnen overzetten kan men 
gebruik maken van een RS-232 inter¬ 
face, dat aan de userpoort van de C- 
64 moet worden aangesloten. Dit in¬ 
terface (b.v. de 1110A van Commodo¬ 
re) kan met een standaard seriële ka¬ 
bel aan een serie-poort van de IBM of 
compatible computer worden gekop¬ 
peld, waarna met standaard RS232 
protocols de data vanaf de C-64 disk 
of cassette kan worden overgeseind 
naar de PC. De maximale Baudrate 
die de C-64 daarbij kan verwerken ligt [ 
ongeveer bij 1600 Baud, ofwel maxi- j 
maal zo’n 200 tekens per seconde. I 
Het overzetten van grote bestanden 


gaat daardoor wel even duren, maar 
het lukt. 

Wat er vervolgens nog moet gebeuren 
met deze bestanden is het vertalen 
van de afwijkende Commodore ASCII 
naar standaard ASCII-code, zoals de¬ 
ze bij de PC wordt toegepast. Daarna 
moet er natuurlijk ook nog een PC pro¬ 
gramma worden gevonden, wat met 
deze data kan werken. Voor gefor- 
mateerde records met een vaste veld¬ 
en recordlengte is dit na vertaling 
geen probleem. Deze kunnen zonder 
meer door een pakket als dBase II of 
lll(plus), VP-INFO etc. worden inge¬ 
lezen als tekstbestand (.SDF). In an¬ 
dere gevallen zal de data eerst op de 
C-64 moeten worden voorbewerkt. 
Kortom, alle gegevens kunnen pro¬ 
bleemloos worden overgestuurd naar 
een PC, maar men moet daarbij wel 
beschikken over de juiste interface, 
die helaas wat moeilijk te verkrijgen 
valt. Bob Munniksma heeft voor Com¬ 
modore Info ooit een schema voor 
een dergelijk interface ontwikkeld. (Cl 
nov. 1986) Ook kunnen wij gegadig¬ 
den helpen aan een paar adressen 
die commercieel bezig zijn met het 
overzetten van data. De kosten daar¬ 
van liggen gemiddeld rond de 100 tot 
200 gulden per volgeschreven C-64 
diskette. 

Het converteren van C-64 program¬ 
ma’s naar PC-formaat heeft geen en¬ 
kele zin, omdat deze software niet 
werkt op een PC. Voor Basic is dit een 
beetje anders, maar na het over¬ 
seinen van de ASCII-listing moet er 
aan de Basic meestal ook nog wel het 
nodige worden aangepast, voor het 
programma goed werkt op een PC. 

Userpoort 

Het werken met de Userpoort en het 
aansluiten van zelf ontwikkelde of 
gebouwde devices aan deze poort 
kan zorgen voor onverwachte pro¬ 
blemen. 

Zo heeft in het belgische Koekelare 
filip Lauwyck problemen na het ver- [ 
geefs aansluiten van een zelfgebouw- i 


de Eprommer. De C-64 is daarna 
vreemde kuren gaan vertonen. 

De structuur en aansluitingen van de 
User-poort zijn nogal gevoelig voor 
het fout aansluiten van interfaces. 
Doordat hierbij meestal wat ondoor¬ 
dacht te werk wordt gegaan komt het 
maar al te vaak voor, dat één of meer 
inkorrekte aansluitingen de CIA chips 
voor een gedeelte hebben vernield. 
Dit feit zal de directe werking van de 
C-64 niet schaden, maar pas aan het 
licht komen, als er 1/0 wordt gepleegd 
die ook via één van deze 6526 Com¬ 
plex Interface Adapters loopt. 

Zo schrijft Filip bijvoorbeeld over een 
uitgangsspanning van 20 Volts, waar¬ 
bij de CIA slechts maximaal +7V ver¬ 
dragen kan. Een fout zit daarbij in een 
klein hoekje, en in dit geval zal er on¬ 
getwijfeld zoiets aan de hand zijn. Ze¬ 
ker bij opdrachten die te maken heb¬ 
ben met kopiëren en moven van tekst 
krijgt men dan problemen met de C- 
64. Ons advies is daarom ook, de C- 
64 maar snel te laten testen, met het 
accent op de ClA’s, en in het vervolg 
voorzichtiger te werk te gaan met de 
Userpoort. 

Verslaving 

Het computerspel Fist il zorgt in Rot¬ 
terdam voor heel wat slapeloze nach¬ 
ten. Eelko Wolthof wil niets meer, be¬ 
halve achter z’n computer dit spel 
spelen. Hij heeft daarbij helaas het 
probleem, dat ie maar niet langs de 
rotsblokken in de grotten kan komen, 
terwijl op andere momenten hij ge¬ 
woon over ravijnen heen huppelt en 
de berg op komt zonder trap. 

Voor mij eigenlijk allemaal onbekende 
fenomenen, maar ongetwijfeld zitten 
er onder de lezers nog wel de nodige 
andere verslaafden, die Eelko wel wil¬ 
len helpen, hoewel het feit dat Eelko 
met dit spel dingen kan doen, die in 
fewite niet horen bij de spelregels, kan 
het ook wel zijn, dat de Fist II kopie 
van Eelko niet helemaal goed werkt. 
Wie wil hem helpen ? 

Zijn adres is: Claes de Vrieselaan 
31b, 3021 JB Rotterdam 
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Softwarebank 

Vanuit Amsterdam een vraag over de 
legaliteit van software die vanaf bul¬ 
letinboards en databanken kan wor¬ 
den betrokken. K.W.T. van Hoog¬ 
straten stuurt een screendump op van 
één van ’s lands databanken, die 
onder fraaie namen commerciële soft¬ 
ware te koop aanbied tegen zeer 
gereduceerde prijzen. 

In Nederland nemen we het helaas 
niet erg nauw met auteursrechten en 
andere vormen van bescherming te¬ 
gen illegale handelingen met ander¬ 
mans bezit. Ook de juridische gevol¬ 
gen van overtredingen zijn weinig 
angstaanjagend. Daarom wordt er 
hier te lande nogal wat gerommeld 
met originele software, die gekopieerd 
en wel weer als nieuw aan tweede ge¬ 
bruikers wordt aangeboden. Zo komt 
het nogal eens voor, dat iemand een 
’echt’ pakket kopt voor een normale 
prijs. Dit programma wordt keurig op 
backup-schijven gezet, een voorzien¬ 
ing die de fabrikant om begrijpelijke 
redenene toelaat, de manuals worden 
netjes gekopieerd en het originele 
pakket gaat (meestal zonder registra- 
tiekaart) weer in de doos en wordt 
voor een schappelijke prijs voor de 
tweede, derde of X-ste keer aan de 
man gebracht. Niet erg wettig alle¬ 
maal, maar wat kun je er anders tegen 
doen, dan dit soort aanbiedingen te 
negeren. 

Anders wordt het echter wanneer an¬ 
dermans eigendommen te koop wor¬ 
den gezet op databanken en bulletin¬ 
boards, waar iedereen die in het bezit 
is van een modem tegen betaling aan 
de sysop, maar software vanaf kan 
halen. Dit isa volstrekt illegaal, en we 
zullen er dan ook stappen tegen ne¬ 
men. Wat wel kan, is dat iemand met 
een softwarebedrijf oude partijen ori¬ 
ginele software opkoopt en alleen de 
aanbiedingen via de databank bekend 
maakt. Een soort MODEM-orderbe- 
drijfje dus. Koopt men een dergelijk 
programma, bekijk het dan nauwkeu¬ 
rig en ga na wat er met de registra- 
tiekaart is gebeurd. Lijkt alles in orde, 
dan kun je het programma zonder pro¬ 
bleem als legaal bezit beschouwen. 

Printproblemen 

P.Gruijters uit s’-Gravenhage komt 
met een serie trieste voorbeelden van 
alles wat z’n computer wel kan, maar 
z’n Star printer niet erg goed begrijpt. 

Als eerste advies moet ik helaas kwijt, 
dat alle software, die specifiek ontwik¬ 
keld wordt voor de C-64/C-T28 en 
eventueel andere Commodore huis- 


Verreweg het grootste gedeelte van 
de vragen voor deze rubriek heeft 
betrekking op het werken met prin¬ 
ters. Vooral de niet-Commodore ty¬ 
pe printers worden nog a! eens ge¬ 
kocht als aanvulling van de configu¬ 
ratie, waarbij een interface dan moet 
zorgen voor een juiste aansturing 
vanuit de computer. De grote hoe¬ 
veelheid brieven over problemen 
hiermee, bewijst wel, dat het lang 
niet altijd zo goed gaat als de printer- 
verkopers willen doen geloven. 

computers, daarbij ook vaak uitgaat 
van een specifieke Commodore prin¬ 
ter. Als prima compatible printers voor 
deze gekke Commodore-aansturing 
zijn er helaas op de markt geen of bij¬ 
zonder weinig machines te vinden. De 
keuze voor een 100% goede configu¬ 
ratie behelst dus zonder meer een 
Commodore-printer. Koopt men, on¬ 
danks dit, toch een andere afdrukker, 
dan kan het niet anders of er komen 
bij diverse soorten software proble¬ 
men om de hoek kijken. Ik ben het 
direct met iedereen eens, die zegt dat 
er veel betere, goedkopere, sneller 
printers te koop zijn, dan de Commo¬ 
dores. ’t Is waar, maar de software is 
nu eenmaal in de eerste plaats voor 
een echte Commodore configuratie 
gemaakt en als het daarnaast ook nog 
werkt op andere printers inclusief 
(meestal weer een ander) interface, 
kun je alleen van geluk spreken. Com¬ 
modore is nu eenmaal altijd wat ei¬ 
genwijs in dit soort dingen. 

Bepaalde problemen zijn echter wel 
het hoofd te bieden. Zo zullen we strak 
wat printeraansturing voor de Star- 
Gemini’s onder de loep nemen. Ook 
wil het nog wel eens gebeuren, bij gra¬ 
fische programma’s als Newsroom en 
Printmaster, dat er door een foute se¬ 
riële overdracht op bijvoorbeeld 7 bits 
woorden gewerkt wordt in plaats van 
8 bits, of omgekeerd. In dat geval krijgt 
men wel iets op de printer, maar dit 
bestaat dan uit allemaal vreemde 
printtekentjes, als omgekeerde vraag¬ 
tekens, hoekjes, streepjes en derge¬ 
lijke. 

Deze problemen kunnen na wat ge- 
ëxperimenteer en geduld wel door de 
gebruiker worden opgelost. Andere 
problemen en weigeringen van de 
printer kunnen alleen worden verhol¬ 
pen door de aankoop van een echte 
(grafische) Commodore printer. Daar¬ 
mee verzekert men zich van een 
100% compatible configuratie. 
Overigens wil ook een ander, beter en 
duurder interface tussen vreemde 
printer en 128/64 ook nog wel eens 
helpen. 


Spelletjes kopiëren 

Het blijkt voor M.Teutelink uit Ensche¬ 
de niet mogelijk om zomaar spelletjes 
van cassette naar disk te kopiëren. 
Vooral software die groter is dan 151 
blokken gaat er bij hem (en vele an¬ 
deren) niet door. Ook kopieerpro- 
gramma’s laten het daarbij afweten. 


Het is natuurlijk niet legaal om an¬ 
dermans software straffeloos te ko¬ 
piëren. Alleen voor eigen gebruik, 
zoals bijvoord het maken van een 
backup, is dit min of meer toeges¬ 
taan. Vaak is dit soort software daar¬ 
om beveiligd tegen het maken van 
duplicaten. En terecht, vinden wij. 
Wil je desondanks toch een kopie 
maken van dit type software, dan zul 
je daar zelf een oplossing voor moe¬ 
ten vinden. 


Waar we wel mee kunnen helpen is 
een listing voor het overzetten van le¬ 
gale (eigen) software van cassette 
naar disk: 

10 REM KOPIËREN CASSETTE 
naar DISK 

20 REM Commodore INFO jb 0987 
100 REM START 
110 F1$ = "PRG1,P,R" : REM 
CASSETTE 

120 F2$ = "PRG1 ,P,W" : REM DISK 
200 REM OPEN CASSETTE PRG 
210 OPEN 1,1,0,F1$ 

220 OPEN 2,8,2,F2$ 

260 EF = 0 
300 GET#1,A$ 

310 IF A$="" THEN A$=CHR$(0) 

320 IF ST o 0 THEN EF = 1 :REM 
STATUS 

400 PRINT#2,A$; 

410 IF EF = 0 THEN 300 
500 CLOSE 1:CLOSE 2 
600 END 

Dit eenvoudige programma laat de 
manier zien, waarop een basic pro¬ 
gramma vanaf cassette byte voor byte 
naar disk wordt geschreven, zonder 
eerst in het computer RAM te hoeven 
worden geladen. 

Op deze manier kan ook een erg lan¬ 
ge listing worden over gezet. Voor het 
kopiëren van commerciële software 
werkt dit programma echter niet. Ook 
bepaalde types cassette-record heb¬ 
ben een bug in de headerfile, waar¬ 
door na het lezen van de eerste 256 
bytes het programma jammer genoeg 
stopt. 

Alle andere types werken echter pri¬ 
ma met een dergelijk programma. 
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Modems 

Over modems krijgen we ook nogal 
wat vragen. Zo komt van M.J. de 
Vaan-Schetselaar de vraag wat nu 
precies het verschil is tussen een 
PTT-modem en een Teltron. Technis¬ 
che specificaties zeggen de gebruiker 
in spé meestal weinig, de prijs des te 
meer. 


Een modem is een apparaat, wat 
door aansluiting op zowel computer 
als telefoonlijn kan zorgen voor een 
standaardcommunicatie tussen 
twee computers of de eigen compu¬ 
ter en een databank c.g. bulletin¬ 
board. Het aardige hierbij is, dat de 
standaard communicatie ervoor kan 
zorgen, dat het niet meer uitmaakt, 
of de computers aan beide kanten 
van de lijn van hetzelfde type zijn. 
De overgeseinde gegevens worden 
namelijk aan beide kanten Vertaald’ 
naar één van de standaard protocols 
in piepjes en biepjes met een be¬ 
paalde betekenis. De modems aan 
beide zijden van de lijn MOduleren 
en DEModuleren deze serie geluid¬ 
jes netjes naar gegevens die weer 
door de computer gebruikt kunnen 
worden. 


Het enige waarbij voor de aankoop 
van een modem op moet worden ge¬ 
let, is de capaciteit van zo’n device en 
de aansluitmogelijkheden voor de ei¬ 
gen computer. Een Commodore huis- 
computer heeft meestal niet de be¬ 
schikking over een standaard RS232 
uitgang. Dat is nu juist de poort waar¬ 
mee een gewoon modem het liefst 
werkt. Soms, zoals bij veel PC mo¬ 
dems zit deze poort reeds in het mo¬ 
dem gebouwd, waardoor het apparaat 
zelfs in de computer is te bouwen. Bij 
Commodore moet men een keuze 
maken tussen specifiek modems voor 
de Commodore, die de vreemde C- 
aansluiting zelf vertalen in standaard 
RS232, maar deze modems zijn op 
geen enkel ander apparaat te gebrui¬ 
ken, of men moet een RS232 inter¬ 
face op de Commodore-machine ko¬ 
pen, en daaraan een standaardmo¬ 
dem koppelen. De laatste oplossing is 
ons inziens de beste, zeker, omdat 
met een dergelijk modem ook andere 
computers kunnen worden gebruikt. 
En de ontwikkeling gaat snel. 

Verder bestaan en modems die wer¬ 
ken met verschillende protocols. Deze 
protocols zijn niet meer dan een serie 
afspraken om het modemverkeer te j 
standaardiseren. In Nederland wer- | 
ken we veel met het zo geheten ! 
CCITT-protocol, waarbij sprake kan ! 
zijn van verschillende zend/ontvang ! 


snelheden. Deze snelheden hebben 
alle een naam, waarbij V21 staat over 
een 300 Baud/sec Full Duplex over¬ 
dracht. Dit is niet erg snel, maar werkt 
wel voor beide zijden even snel, on¬ 
geveer 300/8 = 35 tekens per secon¬ 
de. Een modem van dit type hoeft niet 
meer te kosten dan 250 gulden. Het 
V22 protocol doet het veel beter, daar¬ 
mee kunnen 1200 Baud/sec FD wor¬ 
den verstuurd en ontvangen. Een vier 
keer sneller apparaat dan de V22 de- 
vices dus. Wel moet er daarbij om 
worden gedacht, dat aan beide kanten 
van de lijn eenzelfde protocol wordt 
gehanteerd, anders begrijpen de mo¬ 
dems elkaar niet. Vaak hebben de 
V22 modems ook de optie V21 inge¬ 
bouwd, maar deze V22 modems zijn 
een heel stuk duurder, ongeveer 800 
gulden. Als derde mogelijkheid voor 
huiscomputers bestaat er nog een 
V23 protocol, waarmee met 1200/75 
Baud/sec kan worden gewerkt. Hier 
gaat het met grote snelheid één kant 
uit (1200) terwijl de informatie naarde 
andere kant met slechts 75 Baud/sec 
kan worden verstuurd. Viditel etcetera 
werken met dit protocol. Een dergelijk 
modem kost plusminus 400 - 500 gul¬ 
den, terwijl dit, in combinatie met V21 
zo’n 100 gulden meer wordt. Ook 
combinatie-modems van deze drie 
protocols zijn verkrijgbaar, maar kos¬ 
ten op dit moment nog steeds bijna 
1000 gulden. Sneller dan 1200 Baud/ 
sec kan ook, maar dan praten we al 
bijna over bijzonder professionele ap¬ 
paraten, die niet erg geschikt meer 
zijn voor de Commodore huiscompu¬ 
ters, omdat deze intern meestal niet 
meer dan 1600 Baud/sec. kunnen ver¬ 
werken. 


Grafisch printen 

R.A. Koeroo in Groningen kan z’n 
Rambo-tekening niet mooi op papier 
krijgen met een General Electric TXP 
1000. Het probleem daarbij is, dat de 
(nieuwe) printer tijdens het printen 
steeds een witte regelruimte openlaat, 
en dat geeft natuurlijk niet het gewen¬ 
ste effect voor de familie Koeroo. 

Het door u geschetse probleem is niet 
onbekend en kan ook vrij eenvoudig 
worden verholpen. In de printer bevin¬ 
den zich een aantal dip-schakelaars, 
waarmee de standaardinstelling van 
de printer te stellen is. Eén van deze 
schakelaars is bestemd voor de 
AUTO-LINEFEED. Deze kan zowel 
actief als passief worden gezet. Door 
het printerhandboek te raadplegen 
kunt u bekijken waar deze schakelaar 
zit, en hoe de instelling op dit moment 
is. Omdat bij het grafisch printen de 
software zelf zorgt voor een L INE- 


FEED wanneer dit nodig is, hoeft de 
printer dat niet ook nog eens te doen, 
zoals in dit geval wel gebeurt. Door 
deze schakelaar om te zetten, en de 
printer daarna uit en aan te schakelen, 
wordt een dergelijk probleem verhol¬ 
pen. 

I 64/128 conversie 

A.D.Verspuij vraagt naar tabellen en 
opzoekschema’s die betrekking heb¬ 
ben op de interne verschillen tussen 
de C-128(D) en de oudere C-64 ma¬ 
chines. 

Om Basic listings op een C-64 te kun¬ 
nen gebruiken, die voor de 128 zijn 
geschreven komt er echter nog wel 
wat meer kijken, dan alleen een paar 
conversietabellen voor PEEK en 
POKE. In de richting van C-64 naar C- 
128 gaat dit veel beter. Hoewel er 
daarbij altijd moet worden gerekend 
met een forse serie ombouwregels, 
kun je stellen, dat bijna alle C-64 soft¬ 
ware in 128-mode te gebruiken is. He¬ 
laas beschikken wij ook niet over een 
tabel, waarin alle C-128 adressen zijn 
verwerkt. 

Wellicht is er onder de lezers ie¬ 
mand die dit allemaal al haarfijn 
heeft uitgezocht. We houden 
ons aanbevolen voor een derge¬ 
lijke lijst en zullen die ook zeker 
voor algemeen gebruik willen 
publiceren. _ 

Screendump 

Eric van Gaal wil graag van bepaalde 
spelletjes een screendump maken. Hij 
vraagt hoe dat het beste te bereiken 
is. 

Het maken van grafische screen- 
dumps, zeker van gekochte program¬ 
ma’s is niet altijd even eenvoudig. 
Hoewel we in het verleden wel diverse 
hulpmiddelen in de vorm van software 
voor dit soort dumps op papier heb¬ 
ben geplaatst, blijkt in de meeste ge¬ 
vallen een hardware oplossing beter 
te voldoen. Om grafische screen- 
dumps te kunnen maken kan het bes¬ 
te een cartridge worden gekocht, die 
deze actie voor de gebruiker kan uit¬ 
voeren. Er zijn diverse cartridges op 
de markt, die in meer of mindere mate 
in staat zijn van een grafisch scherm¬ 
beeld afdrukken (in zwart/wit) op de 
printer te realiseren. De ’Final Cart¬ 
ridge II’ van HP is bijvoorbeeld zo’n 
hulpmiddel waarmee onder andere 
aardige grafische schermdumps op 
de printer kunnen worden gemaakt. 
Ook zijn er natuurlijk andere cartrid¬ 
ges die hier je hier een eind op weg 
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mee helpen. Alleen het afdrukken van 
sprites op papier wil nog wel eens wat 
problemen geven, omdat de sprites 
op een heel andere manier worden 
opgebouwd en op het scherm gezet, 
dan een standaard Hl-res plaatje. Om 
deze dumps te maken, moet je na¬ 
tuurlijk wel beschikken over een prin¬ 
ter met grafische mogelijkheden. 

Printercodes 

Uit Odijk komt de vraag van E.Klein, 
hoe hij zijn Star-Gemini printer goed 
kan configureren voor het printen van 
bepaalde afwijkende lettertypes en 
andere tekstattributen. 

Het werken met een Gemini drukker 
voor ASCII teksten is in samenwer¬ 
king kingkingmet de Commodore 
computers geen bezwaar. Alleen be¬ 
paalde tekstcodes wijken af van de 


standaard Commodore codes. 
Hieronder laten we de belangrijkste 
afwijkingen volgen: 


Deze codes kunnen als programma¬ 
regel worden meegerund, mits vooraf 
met hulp van de opdracht OPEN 4,4 
een kanaal naar de printer is ge¬ 
opend. Ook andere codes uit het prin- 
terboek kunnen op deze manier wor¬ 
den geïmplementeerd in een listing. 
Zelfs voor het werken met standaard¬ 


programma’s kunnen deze codes 
vooraf in een kleine eigen Basic-lis- 
ting soms wonderen verrichten. Dit 


kan helaas alleen, als de software 
waar het om gaat de printer niet op¬ 
nieuw RESET, want dan zijn alle be¬ 
staande codes weer uit het printer- 
geheugen verwijdert. 


SUPSCRIPT AAN ............ PRINT#4,CHR$(27);CHR$(83);CHR$(1) 

SUBSCRIPT UIT............. PRINT#4,CHR$(27);CHR$(84) 

SUPERSCRIPT AAN ......... PRINT#4,CHR$(27):CHR$(83);CHR$(0) 

SUPERSCRIPT UIT...... PRINT#4,CHR$(27);CHR$(84) 

ONDERSTREPEN AAN ......PRINT#4,CHR$(27);CHR$(45);CHR$(1) 

ONDERSTREPEN UIT .......PRINT#4.CHR$(27);CHR$(45);CHR$(0) 

VERGROTEN AAN_____ PRINT#4,CHR$(27);CHR$(69) 

VERGROTEN UIT... .PRINT#4,CHR$(27);CHR$(70) 

DUBBEL AAN ............. PRINT#4,CHR$(27);CHR$(71) 


DUBBEL UIT ........ ......PRINT#4,CHR$(27);CHR$(72) 



tm m mm 






Speciale aanbieding 


Kleine annonces zon¬ 
der commercieel oog¬ 
merk en zonder vraag 
en aanbod van illegale 
software worden gratis 
geplaatst. Stuur een 
kaartje naar Postbus 
112, 1260 AC Blaricum 




Abonnement 
op dit blad? 

Bel gratis 

06 - 022 42 22 

HP Teleservice: 
elke dag tot 20.30 uur 
(ook in het weekend) 
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Het NOS-radioprogramma Hobbyscoop is al jaren bezig om met de luisteraars te com¬ 
municeren via de huiscomputer. Een van de middelen die men aanwendde was de in¬ 
voering van het ‘Esperanto voor de computer’, de NOS-Basicode. Nu gaat men het 
versturen van programma’s ook op een ander manier uitvoeren, namelijk via een soort 
draadloos digitaal net. 

NOS digitaal de lucht in. 

D e radio gebruiken om computerprogramma’s uit te zenden, dat is in de 
loop der jaren bijna een soort zendingswerk voor Hans Janssen en zijn 
medewerkers. De Hobbyscoop/Basicode activiteiten lopen al vanaf 1979. 



Hans Jansen ontvangt een PC voor de digitale plannen 


Sindsdien zijn er al heel wat verschrik¬ 
kelijke cirkelzaag geluiden uitgezon¬ 
den over de Hilversumse zenders. Ve¬ 
le duizenden luisteraars kregen zo 
programmatuur voor de huiscomputer 
gratis huis-aan-huis bezorgd. 

In gesprek 

Omdat mensen wel eens een uitzen¬ 
ding missen (er zijn twee uitzendingen 
per week: op zondag en woensdag) 
heeft het programma ook een compu¬ 
ter- databank ingesteld. Met een huis¬ 
computer en een modem kunnen de 
luisteraars alle gegevens over de uit¬ 
zending opvragen. Ook programma¬ 
tuur tuurtuurdie men gemist mocht 
hebben, is in de Hilversumse 
databank beschikbaar. 

Deze gegevensbank blijkt een groot 
succes bij de luisteraars: hij is bijna 
voortdurend in gesprek. 

Dan maar de lucht in 

Als echte radiomensen keek men om 
zich heen en wil nu de mogelijkheden 
van de ether nog verder exploreren. 
Een volgend poject van het radiopro¬ 
gramma zal dan ook worden uitge¬ 
voerd in samenwerking met tiendui¬ 
zenden nederlandse zendamateurs. 
Met de verenigingen op dit gebied is 
Hobbyscoop nu bezig een volledig 
draadloos digitaal net op te bouwen in 



de ether. Het gaat om het zogeheten 
Packet-radio project. De centrale 
zend/ontvanger hiervoor komt in Hil¬ 
versum op het dak van het NOS- 
hoofdgebouw te staan. 

Radio-6 

Om in aanmerking te komen voor een 
vergunning van de PTT-Radio Con¬ 
trole Dienst was voor het Packet-radio 
project een geavanceerde computer 
nodig. Daar de financiële positie van 
het programma een aanschaf van een 
dergelijk apparaat niet toestond sche¬ 
nen de ontwikkelingen toch wat ver¬ 
traagd te zullen worden. Een Neder¬ 
lands computerbedrijf (G-2) vond de 
plannen van Hobbyscoop echter zo 
aantrekkelijk dat men spontaan be¬ 
sloot deze computer gratis beschik¬ 
baar te stellen aan het project. Door 


deze onverwachte ontwikkeling zal 
het nu mogelijk zijn om dit nieuwe sta¬ 
tion, dat in de wandelgangen al Radio- 
6 genoemd wordt, reeds volgend jaar 
te openen. 

Hobbyscoop 

Voor wie nog niet mocht weten, wan¬ 
neer Hobbyscoop haar computerklan- 
ken via de normale radio verspreidt, 
dat is op woensdag op radio 1/2 FM 
om 19u en op zondag op radio 5 AM 
om 22.40 u. Tijdens die uitzendingen 
niet alleen Basicode programma’s, 
maar ook nieuws en commentaren uit 
het computerwereldje. 
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De cursus machinetaal is in volle gang. Tjipke van der Land heeft gelukkig ondanks 
drukke werkzaamheden voldoende tijd gevonden om weer een aflevering van onze 
machinetaalcursus voor de 65xx farm' ie te kunnen schrijven. In deze achtste aflever¬ 
ing gaan we verder'met de basisbegrippen die nodig zijn om een professioneel 
machinetaal programmate kunnen schrijven. Tussen de bedrijven door maken we ook 
onze eerste echte programma’s, die we op de computer kunnen runnen. 


Cursus Machinetaal 


Deel 8: Hulpmidellen 


I n de vorige afleveringen hebben we allerlei basale onderwerpen behan¬ 
deld, die nodig zijn om in machinetaal te kunnen programmeren. Zo kwa¬ 
men onder meer het hexadecimale stelsel en begrippen als mnemonics en 
adresseermethoden aan de orde. We zijn nu op het punt aangeland, dat we 
deze kennis aan de praktijk kunnen toetsen. 


We pakken de draad van deze cursus 
op bij het punt waar we in aflevering 7 
zijn blijven steken. We zijn bezig met 
een eerste programma, wat we als 
voorbeeld gebruiken om je eigen 
naam op het scherm zichtbaar te ma¬ 
ken. Eigenlijk kan dit op twee manie¬ 
ren, waarvan maar één de voorkeur 
geniet, uiteraard. Je kunt een naam 
rechtstreeks in het geheugen POKEn, 
maar je kunt ook via de 6510 micro¬ 
processor een naam of andere tekst 
op het scherm zetten. 


Tekstvoorbeeld 

We zullen dit met een voorbeeld wat 
duidelijker maken. Het rechtstreeks in 
het geheugen POKEn is eigenlijk 
meer Basic dan machinetaal, want, 
hoewel je met POKE opdrachten be¬ 
zig bent het interne RAMgeheugen di¬ 
rect aan te spreken, pas je daarbij 
geen enkele machinetaal instructie 
toe, je plaatst alleen maar de naar 
ASCII overgezette letters recht¬ 
streeks in het videogeheugen, dus je 
maakt in principe geen gebruik van de 
machinetaal instructieset van de pro¬ 
cessor. 

Hierna volgt het voorbeeld om recht¬ 
streeks in het videogeheugen te 
POKEn: 

NAAM Decimalen Hexadecimalen 


J 

74 

4A 

A 

65 

41 

N 

78 

4E 


32 

20 

K 

75 

4B 

L 

76 

4C 

A 

65 

41 

A 

65 

41 

S 

83 

53 

S 

83 

53 

E 

69 

45 

N 

78 

4E 


In Basic ziet het voorbeeld met bo¬ 
venstaande tekst "JAN KLAASSEN" 
er zo uit: 


5 

6 

10 


20 


30 

40 

50 

60 

70 

100 


PRINT "CLR" : 

PRINT CHR$(14) :REM SCHAKf 
NAAR ASCI NIVO LAAG 
REM PROGRAMMA VOOR HET 
POKE VAN EEN NAAM IN 
HET VIDEOGEHEUGEN 
S = 1400 : REM START ADRES 
VOOR AF TE DRUKKEN 
NAAM 
READ A 

IF A = -1 THEN END 
POKE S,A 
S = S + 1 
GOTO 30 
DATA 


64,65,78,32,75,76,65,65,83,83,6 
9,78,-1 


In regel 100 vinden we de decimale 
getallen terug, waarmee de naam 
JAN KLAASSEN op het scherm wordt 
gepoked. Wil je dit vervangen door je 
eigen naam of een andere tekst, dan 
kun je de datagetallen voor de letters 
die je nodig hebt aflezen uit de ASCII- 
tabel die bij de vorige aflevering (C- 
INFO j4/nr5) op bladzij 12 is afge¬ 
drukt. 

Tot zover het Basic POKEn van een 
tekst met decimale bytewaarden 
(ASCII). Het voorbeeld waar we 
straks mee te maken zullen krijgen is 
de ’echte’ machinetaal, waar opdrach¬ 
ten rechtstreeks met behulp van de 
processor worden uitgevoerd. 

In een programma, waar je uiteraard 
ook moet werken met tekst, krijg je op 
.geen enkele wijze de kans om tekst, 
moe dan ook, op de wijze zoals hier¬ 
boven, met hulp van DATA en POKE, 
in het (video)geheugen te plaatsen, 
simpelweg omdat je dan in machine¬ 
taal bezig bent en niet in Basic. Dus 
hier moet je echt door middel van LDA 
instructies ergens tekst uit het geheu¬ 
gen halen en volgens de regels van 
het programma op de goede plaats in 
het videogeheugen neerzetten. 


Om die reden gaan we in het volgen¬ 
de voorbeeld laten zien hoe je eerst 
nog op een simpele manier je naam 
op het scherm kunt laten schrijven. 
We kunnen dat doen door op de im- 
mediate manier de accumulator te la- 
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den met het het juiste ASCII getal, 
maar we kunnen ook eerst door mid¬ 
del van het POKE programma een 
naam ergens willekeurig in het gewo¬ 
ne RAM-geheugen plaatsen in plaats 
van direct op het scherm, en daarna 
met een machinetaalprogramma de 
naam uit dezelfde adressen in het ge¬ 
heugen halen en daarna pas plaatsen 
in het videogeheugen. 

Aangezien dit de manier is die het 
meest gaat voorkomen, gaan we dit 
voorbeeld op een hele eenvoudige 
manier uitvoeren waardoor je goed 
kunt begrijpen wat er gebeurt. De vol¬ 
gende keer gaan we deze veel te om¬ 
slachtige manier nog een keer uitvoe¬ 
ren, alleen dan met behulp van een 
nieuwe instructie, waardoor het pro¬ 
gramma veel kleiner wordt, en daar¬ 
door ook sneller en gemakkelijker 
leesbaar. 


Alle Opcode’s en Operands van bo¬ 
venstaande listing achter elkaar in 
hexadecimaal: 


Alle Opcode’s en Operands achter el¬ 
kaar in decimaal (voor het poken): 

169,23,141,24,208,173,0,32,141,120, 

5,173,1,32,141,121,5,173,2,32 

141,122,5,173,3,32,141,123,5,173,4,3 

2,141,124,5,173,5,32,141,125 

5,173,6,32,141,126,5,173,7,32,141,12 

7,5,173,8,32,141,128,5,173,9 

32,141,129,5,173,10,32,141,130,5,17 

3,11,32,141,131,5,234,208,252 


10 REM poke programma voor 
machinetaal 

20 S = 8192 : REM START ADRES 
NAAM 

30 READ A 

40 IF A = -1 THEN END 

50 POKE S,A 

60 S = S + 1 

70 GOTO 30 

100 DATA 

74,65,78,32,75,76,65,65,83,83,6 
9,78,-1 


REM poke programma voor is natuurlijk vanzelfsprekend dat je de 
machinetaal computer na het runnen van het eer- 

PRINT "CLR" : REM SCHERM ste programma, (voor het poken van 
SCHOON de naam) niet mag uitzetten, want an- 

S = 4096 : REM START ADRES ders verwijder je zojuist qePOKEte 
MACHINETAAL naam uit het geheugen. 

READ A y 

IF A = -1 THEN END 

POKE S,A Snel ? 

In het hiervoor gegeven machinetaal 
programma staan weliswaar wel twee 
nieuwe instructies die er op dit mo¬ 
ment echter niet veel ter zake doen. 
Deze instructies worden hier even ge¬ 
bruikt om een lus te maken, omdat uit 
het terug komen naar de shell of ker- 
nal het scherm wordt schoongemaakt, 
zodat het effect van ons programma 
verloren gaat. Om dit te voorkomen 
zetten we het machinetaal program¬ 
maatje in een lus zodat hij in machine¬ 
taal blijft lopen. Je kunt de computer 
onderbreken door te drukken op RUN/ 
STOP RESTORE. Als je alles hebt in- 
getoets, blijikt het laatste Basicpro- 
gramma, hoewel het uit veel meer 
DATA-bytes bestaat, exact hetzelfde 
te doen als het allereerste program¬ 
maatje in deze aflevering. Een ook de 
uitvoer van dit programma gaat eerder 
trager dan de Basiclisting. Stel je ech¬ 
ter gerust, dit is niet meer dan een 
omslachtig voorbeeld om de eerste 
werking van een dergelijke manier 
van programmeren uit te leggen en 
zeker geen standaardmanier om in 
machinetaal te programmeren. Daar 
hebben de heren ontwerpers gelukkig 
wel betere methoden voor bedacht. 


Het programma 


MNEMONIC HEX 


COMMENTAAR 


LDA #$17 
STA $D018 
LDA $2000 
STA $0578 
LDA $2001 
STA $0579 
LDA $2002 
STA $057A 
LDA $2003 
STA $057B 
LDA $2004 
STA $057C 
LDA $2005 
STA $057D 
LDA $2006 
STA $057E 
LDA $2007 
STA $057F 
LDA $2008 
STA $0580 
LDA $2009 
STA $0581 
LDA $200A 
STA $0582 
LDA $200B 
STA $0583 
NOP 

BNE #$FC 


A9 17 ... 
8D 18 DO 
AD 00 20 
8D 78 05 
AD 0120 
8D 79 05 
AD 02 20 
8D 7A 05 
AD 03 20 
8D7B05 
AD 04 20 
8D7C 05 
AD 05 20 
8D 7D 05 
AD 06 20 
8D 7E 05 
AD 07 20 
8D 7F 05 
AD 08 20 
8D 80 05 
AD 09 20 
8D 81 05 
AD 0A 20 
8D 82 05 
AD0B20 
8D 83 05 
EA 

DO FC ... 


;Getal laden voor asci nivo laag 

;Parameter plaatsen 

; Ophalen letter 1 

jPlaatsen van letter 1 in videogeh 

;Ophalen letter 2 

; Plaatsen van letter 2 in videogeh 

;Enz. 

;Ophalen van spatie 

;PIaatsen van spatie in videogeh. 

«Enz. 


RUN 

Voor het starten van het progamma 
kun je volstaan door het intypen van 


;LOOP VIA NOP (NO OPERATION) 
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SYS 4096. In het begin van het pro¬ 
gramma beginnen we door het ASCII 
nivo laag te maken, want doe je dat 
niet, dan krijg je alleen grafische ka¬ 
rakters van de hogere ASCII. Voor de 
meer geavanceerde manieren heb¬ 
ben we eigenlijk een monitor of as- 
sembler nodig, omdat het anders een 
te lange invoer procedure wordt, daar¬ 
om doen we de volgende keer dit ex¬ 
periment nog een keer, alleen dan 
met de monitor of assembler, maar 
omdat je waarschijnlijk nog niet eens 
weet wat de kreet monitor of assem¬ 
bler inhoudt, gaan we eerst wat dieper 
in op, wat je allemaal met een monitor 
en een assembler kunt doen, en wat 
voor voordelen dit heeft. 


Monitors 

In het begin van deze cursus zijn we 
begonnen met vertellen dat de pro¬ 
cessor werkt met nullen en enen dus 
bijvoorbeeld 1010 1101 0011 0101 
0001 0100. Dit zegt ons niets, maar 
voor de microproccessor is net zo dui¬ 
delijk als voor ons is 1 + 1 = 2. 

Maar aangezien wij de computer moe¬ 
ten gaan leren hoe we bepaalde pro¬ 
blemen opgelost willen zien, moeten 
wij dus uiteindelijk een programma 
maken in de vorm zoals die hierboven 
staat. Dadelijk zul je zien hoe belang¬ 
rijk nu een monitor of assembler is, 
omdat dat je daar veel sneller mee 
kunt programmeren, veel tijd mee be¬ 
spaart, en omdat het schrijven in ma¬ 
chinetaal toch al langer duurt dan een 
hogere taal als bijvoorbeeld Basic, 
kunnen we het ons gewoon niet per- 
miteren om in nullen en enen te gaan 
schrijven. Zouden we dit wel doen, 
dan zouden de programma’s zo duur 
worden, dat niemand ze meer kon ko¬ 
pen, wat dus zou betekenen dat we 
nog met de kroontjespen en het tel- 
raam op het buro de administratie 
zouden moeten doen, wat inmiddels 
allang verleden tijd is. 

Het probleem hier is dat de notatie 
van het programma te lang en te in¬ 
gewikkeld isen daardoor tijdrovendl; 
ook de kans op het maken van fouten 
behoeft geen nadere uitleg, terwijl het 
dubuggen van alleen maar series nul¬ 
len en enen een ondoenlijk karwei is. 

Voor dit soort problemen is het hex- 
decimaal getalstelsel in het leven ge¬ 
roepen om de binaire notatie te ver¬ 
korten. Wat het verschil is tussen bi¬ 
nair en hexadecimaal is voor ons 
geen enkel probleem meer, omdat wij 
dit tot treurens toe in vorige afleverin¬ 
gen geoefend hebben (als het goed 
is). Gaan we dan de binaire notatie 
van het vorige voorbeeld vertalen in 
een hexadecimale aanduiding dan 


krijgen we de notatie: AD 35 14. Hier 
kun je zien dat dit al vier keer zo kort 
is, en derhalve ook veel overzichtelij¬ 
ker. Dus als we op deze manier de 
programma’s mogen invoeren ten op¬ 
zichte van binaire invoer, zijn we al 
een stuk beter af. 

Deze sprong kunnen we al verwezen¬ 
lijken door het toepassen van een mo¬ 
nitor In de vorige uitgave heb je kun¬ 
nen zien hoe we een klein program¬ 
maatje maakten, en hoe we dit ten¬ 
slotte in een klein voorbeeldje heben 
gezet. In dit voorbeeld hadden we de 
mnemonic code en de hexcode erbij 
gezet. De hexcode moesten we ver¬ 
volgens omrekenen naar decimaal, 
omdat we anders deze hexadecimale 
waarden niet in het geheugen konden 
poken. Als je over een monitor be¬ 
schikt dan kun je gelijk de hexadeci¬ 
male waarden invoeren in een plekje 
in het geheugen. Een monitor in de zin 
zoals wij hem hier bedoelen is niet dat 
je er een televisie of een ander soort 
kijktoestel moet aanschaffen om in 
machinetaal te kunnen programme¬ 
ren. 



Monitor betekent "het laten zien", en 
dat is precies wat we er mee gaan 
doen. De monitor is een programma, 
waardoor we in staat gesteld worden 
om de inhoud van een stuk geheugen 
zichtbaar te maken, in hexadecimale 
vorm, dus niet in nullen en enen waar 
we toch niets van begrijpen. We kun¬ 
nen op deze wijze ook rechtstreeks 
hexadecimaal invoeren in het compu¬ 
tergeheugen. Dit heeft al veel meer 
voordelen ten opzichte van het poken 
in Basic. In de monitor kun je een in¬ 
gevoerd programma gelijk testen door 
het even te runnen. Als het program¬ 
ma doorlopen is komt de computer 
gewoon terug in de monitor, en kun je 
eventueel een wijziging aanbrengen 
als je iets fout gedaan hebt. Maak je 
een fundamentele fout, zoals het ver¬ 
keerd uitvoeren van bijvoorbeeld een 
sprong-opdracht, dan is het logisch 
dat de computer zich ophangt (vast¬ 
loopt) en niet meer terug komt in de 


monitor. 

Als je het programma nog een keer 
wilt overzien, dan kun je gewoon het 
stuk geheugen listen waar je het pro¬ 
gramma hebt geplaatst. Stel dat je 
een programma hebt ingevoerd wat 
begint op $ 1000, dan voer je in ’.m 
1000 1050’ Na dit bevestigd te heb¬ 
ben met de enter toets drukt de com¬ 
puter in dit geval de inhoud af van ge¬ 
heugen lokatie $ 1000 tot $ 1050. Het 
’.m’ is dus een typisch monitor com¬ 
mando, net als bij Basic ’LIST’. Op 
deze wijze kun je dan gelijk contro¬ 
leren of je wat verkeerd hebt inge¬ 
voerd. 


Assemblers 

Vervolgens kunnen we nog een stap 
nemen voor het nog gemakkelijker in¬ 
voeren van een programma. Deze 
stap is het gelijk invoeren van de 
mnemonic code in plaats van het in¬ 
typen van opcodes en operands. De¬ 
ze aanvulling op de monitor noemen 
we de assembler. Assembler bete¬ 
kent ’in elkaar zetten’. 

Het voordeel van de assembler ten 
opzichte van de monitor is dat je niet 
meer zoveel in het boekje met de in¬ 
structieset hoeft te kijken, omdat je de 
instructie gelijk aan de assembler in 
mnemonic opgeeft. In het onderstaan¬ 
de voorbeeld zetten we een testje in 
monitortaa! geschreven en een voor¬ 
beeld in assembler geschreven. 

Voorbeeld Monitor: 

: AD002069 058D0030 
: 00 

Voorbeeld Assembler: 

LDA $2000 
ADC #$05 
STA $3000 
BRK 

Je kunt zien dat er een heel verschil is 
tussen de monitor en de assembler. 
Stel dat je in de monitor het getal $5 in 
de accumulator wilt laden, dan moetje 
in de instructieset eerst de instructie 
LDA opsporen, vervolgens achter de 
bedoelde instructie de juiste instruc- 
tiemethode opzoeken, in dit geval im- 
mediate. Achter de instructie LDA ko¬ 
men de volgende instructiemethoden 
voor, met de daarbij behorende code: 

immediate $A9, 
absolute $AD, 
zero page A5, 
indirect X $A1, 

indirect Y $B1, 
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zero page X $B5, 
absolute X $BD, 
absolute Y $B9, 
indirect $B2. 

Zo zie je dat achter een simpele in¬ 
structie LDA 9 verschillende code’s 
voorkomen, waar je dan een keuze uit 
moet maken. Van deze 9 code’s heb¬ 
ben we er inmiddels 3 behandeld na¬ 
menlijk de immediate, absolute en de 
zero page methodes. Dus in dit geval 
kiezen we voor de code $A9 met het 
getal $05 erachter, dus ’A9 05’. Willen 
we dit getal ergens uit het geheugen 
inlezen, bijvoorbeeld absolute vanaf 
geheugen-lokatie $7345 dan krijg je 
de code $AD met daarachter het ge¬ 
heugen adres $7345, dus ’AD 45 73’. 


lukkig niet veel van dit ongedierte in 
de computer voorkomt houden wij het 
voorlopig maar even op ontleden. Dit 
ontleden slaat dan op het programma, 
en niet op de computer. Stel dat je bij 
het invoeren van het programma een 
typefout maakt, dan is de kans dat je 
in de monitor de fout ontdekt heel 
klein. 

Als je hem kan debuggen in de as- 
sembler, dan zie je echt het program¬ 
ma voor je en kun je gemakkelijker de 
fout eruit halen. We nemen het vorige 
voorbeeld om dit te illustreren, waar 
we een klein foutje in hebben gezet. 

Voorbeeld Monitor: 

: AD002069 058D0330 

.00 


sieve toelichting houdt niet in dat dit 
het einde zou betekenen op het toe¬ 
passen van vereenvoudigingen op as- 
sembler nivo. Dit is gelukkig niet waar 
want er is een manier om nog effec¬ 
tiever te programmeren, en dat heet 
'macro assembler’. Dit is iets waar 
wij voorlopig nog niet mee gaan wer¬ 
ken, omdat wij het eerst goed met de 
zogenaamde mini assembler afkun¬ 
nen, ook omdat we anders te veel za¬ 
ken in één keer vastpakken, want de 
macro assembler heeft een comman¬ 
do set op zichzelf. 

Toch geven we even aan wat de mo¬ 
gelijkheden zijn. Bij de (mini)assem- 
bler wordt de ingevoerde opcode + 
operand direct in het geheugen ge¬ 
plaatst, dus als je klaar bent met in¬ 
voeren hoef je alleen maar het com¬ 
mando .g $ ’startadres’ te geven en 
het programma werkt, tenminste als je 
alles goed ingevoerd hebt. 

Bij macro assembling maak je eerst 
een programma in een tekst editor 
(Een tekst verwerker), en daarna ga je 
die compilen (overzetten in machine¬ 
taal door middel van een speciaal pro¬ 
gramma) 

In deze tekst editor hoef je niet meer 
te werken met hexadecimale getallen, 
maar met labels. Je hoeft alleen maar 
in het begin een getal toe te kennen 
aan ieder label wat gebruikt wordt. Bij¬ 
voorbeeld het startadres = $ 1000 ken 
je toe aan de naam START. Je hoeft 
dan niet meer te springen naar een 
adres, maar naar een naam, die door 
de compiler wel wordt vertaald in een 
getal. Ook het tussenvoegen van een 
routine gaat hier heel eenvoudig, wat 
bij de mini assembler heel lastig is. 
Maar hier komen we wel op terug als 
de gelegenheid zich voordoet in de 
vorm van een voorbeeld. Hopenlijk is 
het je een beetje duidelijk geworden 
wat het verschil is tussen een "moni¬ 
tor", "assembler”, en "macro assem¬ 
bler". 

De volgende keer plaatsen we, als al¬ 
les goed gaat tenminste, een listing 
van een monitor/assembler in het 
blad, die je zelf over kan tikken, en 
opslaan op tape of disk. We gaan dan 
een beetje spelen met de assembler 
om er wat vertrouwd mee te raken. 
Eerst maar weer veel succes en tot de 
volgende keer. 


Tj.v.d.L. 
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In assembler gaat dit alles veel een¬ 
voudiger namelijk: hier wordt LDA 
#$05 ingetypt voor immediate-mode, 
en voor de absolute LDA $7345. 

Het verschil tussen immediate en 
absolute geven we hier aan door mid¬ 
del van het tekentje #, denk maar 
eens terug aan het eerder gegeven 
voorbeeld waar dit ook ter sprake 
kwam. Dit voorbeeld even ter illustra¬ 
tie om het verschil aan te geven tus¬ 
sen monitor en assembler, want wij 
gaan de volgende keer door met het 
programmeren in de assembler. Wat 
ons hieruit wel duidelijk moet zijn ge¬ 
worden is dat je hoeft niet meer uit 9 
verschillende code’s te kiezen, met 
het daaraan verbonden risico een 
foute keuze te maken. 

Debuggen 

Door het programmeren in assembler 
wordt het allemaal wat overzichtelijker 
en je kunt er echt een programma in 
herkennen, wat natuurlijk voordelen 
heeft als je moet gaan debuggen voor 
het opzoeken van een gemaakte fout. 
Debuggen betekent ontleden, of ei¬ 
genlijk ontluizen. Maar omdat er ge¬ 


Voorbeeld Assembler: 

LDA $2000 
ADC #$05 
STA $3003 
BRK 

Vergelijk deze listings met de vorige 
en kijk of je de consistente fout eruit 
kunt halen. Het zal daarbij onmiddelijk 
opvallen, dat dit veel gemakkelijker 
gaat in de assembly-listing dan in de 
listing van het monitorprogramma, 
nog daargelaten hoe moeilijk het is in 
een binaire uitdraai van dit toch niet al 
te grote programma. 

Voordelen 

In principe heeft het werken voor ons 
met de monitor niet veel zin, omdat we 
al behoorlijk hebben kunnen oefenen 
op hexadecimaal niveau, daarom kie¬ 
zen we ook voor de assembler, omdat 
we dan wat sneller de andere instruc¬ 
ties met de daaraan verbonden me¬ 
thodes kunnen doornemen. Het is wel 
belangrijk om de hiervoor behandelde 
stof goed te onthouden, want je blijft 
het altijd nodig houden. Deze depres¬ 
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Op het gebied van de huiscomputers is Commodore al lang één van de grootste be¬ 
drijven in de wereld. Ook in de IBM-compatibele zakencomputers gaat het niet slecht 
met het bedrijf. Aan de onderkant van het scala PC’s is nu eindelijk de PC-1 op de 
markt gekomen. 


De Commodore PC-1 


W e hebben er lang op gewacht, op die kleine PC van CBM. Tegelijk met 
het goed nieuws van een redelijke winst (28,6 miljoen dollar), op een 
omzet van 806,7 miljoen dollar, kwam ook de ‘low-end’ machine uit. 



De nieuwe instapper van Commodore 
voor de MS-DOS markt is duidelijk 
geen uitgeklede PC-10 geworden. 
Men heeft een aantrekkelijke kast ge¬ 
maakt, er een behoorlijk compleet 
electronisch hart ingezet en de hele 
zaak zal ook vast wel een aantrek¬ 
kelijke prijs krijgen. Die is nog niet pre¬ 
cies bekend, maar in de standaard¬ 
configuratie, met één diskdrive, een 
monitor en wat software zal het wel 
rond de tweeduizend gulden gaan 
worden. 

De opvallendste karakteristiek van de 
PC-1 zijn de buitenafmetingen, de 
systeemkast meet maar 33 x 32 x 8,5 
centimeter. 

In de PC-1 zit als processor een 8088 
microprocessor van Intel, die op de 
vrij trage oorspronkelijke PC snelheid 
van 4,77 MHz draait. Er zit 512 KB 
RAM geheugen in, op de moederkaart 
uit te breiden tot 640 KB, dat is dus het 
maximum dat met de gewone MS- 
DOS kan worden benut. 

Vooral op grafisch gebied heeft Com¬ 
modore meteen maar een multi-mode 
videokaart gemonteerd, men zal met 
de PC-1 niet snel vastlopen, omdat 
die kaart zowel monochroom (MDA), 
kleur (CGA) als Hercules compatibel 
is. Dat wil dus zeggen dat men het 
beste op videogebied combineert in 
een kaart en de gebruiker dus zowel 
spelletjes, tekst als grafische pro¬ 
gramma’s in bit-map mode als Ven- 
tura zal kunnen draaien. 

Verder heeft men ook op interface 
gebied alles standaard ingebouwd, 
namelijk zowel een seriële als een pa¬ 
rallel interface voor de printer en/of 
modem plus een muis-interface. 


Wie nog meer wil doen en dan denken 
we meteen aan een harde schijf, zal 
buiten het (kleine) kastje verder 
moeten uitbreiden. Daartoe is er een 
speciale uitbreidingsconnector (geen 
normale PC sleuf) en komt er van 
Commodore een uitbreidingskastje 
met wel normale sleuven. 

Het toetsenbord telt 84 toetsen, met 
de functietoetsen opzij, hetgeen in de 
praktijk toch prettiger werkt dan fun¬ 


ctietoetsen op een rij bovenaan. De 
enkele diskdrive kan 360 KB aan data 
bevatten en het geheel werkt onder 
DOS 3.2. Er wordt naast de MS-DOS 
ook een GW-Basic meegeleverd. Wie 
een andere diskdrive wil hebben, kan 
ook een 3,5 inch eenheid met 720 KB 
inbouwen in plaats van de normale 
diskdrive. 
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Voor de Commodore 64 al jarenlang een goede bekende, nu ook voor de Amiga be¬ 
schikbaar: VizaWrite. 


Vizawrite voor de Amiga 


N ieuw op de Nederlandse Amiga markt is het teksverwerkingspakket Viza- 
Write. Deze naam is zeker geen onbekende bij de grote schare Commo¬ 
dore 64 en 128 gebruikers. Het pakket staat alom bekend om zijn eenvoudige 
opzet. Zelfs als men nog nooit met een tekstverwerker heeft gewerkt, kan 
men hiermee na een korte periode probleemloos werken. Commodore heeft 
met de Amiga 500 en 1000 een behoorlijk stuk van de hobbymarkt veroverd. 
De 2000 begint nu ook langzaam door te dringen tot de bedrijven.VizaWrite 
heeft voor deze beide sectoren zijn aantrekkelijke kanten. 


T ekstverwerken 

Teksten moeten door vele mensen 
verwerkt worden. Bedrijven, vereni¬ 
gingen en particulieren allemaal heb¬ 
ben we er mee te maken. Het vroe¬ 
gere gezwoeg op een typemachine 
begint langzaam maar zeker tot het 
verleden te behoren. Het vervelende 
bij de typemachines was dat er altijd 
fouten werden gemaakt, of correcties 
moesten worden door gevoerd. Om 
tot een mooi resultaat te komen moest 
het geheel dan worden over getypt. 
1 et de komst van tekstverwerkers be¬ 
hoort dit alles tot het verleden. Fouten 
zijn zo verholpen, indelingen zijn te 
veranderen, zelfs staten maken is kin¬ 
derwerk geworden. Een van de groot¬ 
ste voordelen van een tekstverwerker 
is waarschijnlijk dat er stukken tekst 
kunnen worden bewaard. Op elke ge¬ 
wenste plaats zijn deze weer door 
middel van een enkele handeling te 
gebruiken. Op veel bedrijven wordt bij 
de correspondentie alleen maar ge¬ 
bruik gemaakt van kant en klare tekst¬ 
blokken. Snelheid en kwaliteit gaan 
hier dus samen. 


VizaWrite. 

Het Vizawrite-pakket maakt volledig 
gebruik van de beroemde Amiga stijl. 
Alle mogelijk heden van de computer 
worden gebruikt. 

VizaWrite maakt gebruik van de muis. 
Vele handelingen die normaal bijvoor¬ 
beeld door codes moesten worden, in¬ 
gevoerd zijn nu door middel van .een 
handeling met de muis uit te voeren. 
De meervoudige raamwerken maken 
het mogelijk aan meer documenten 
tegelijk te werken. 

Wat is er nodig om met VizaWrite te 
werken.Aan hardware, dus aan appa¬ 
ratuur: 

° Een Commodore Amiga met 256 
Kb geheugen. Dit is de kleinste ge¬ 


heugencapaciteit waarmee een 
Amiga wordt geleverd, dus het pak¬ 
ket op alle Amiga’s. 

° Minimaal één diskdrive, ook dit is 
standaard dus geen probleem. 

° Een monitor welke geschikt is voor 
80 karakters en een Amiga aanslui¬ 
ting. Het mooiste is echter een kleu- 
renmonitor, een monochrome moni¬ 
tor werkt echter ook probleemloos. 

° Een printer die door VizaWrite on¬ 
dersteund wordt en de juiste aan- 
sluitkabel om deze aan de Amiga 
aan te sluiten. 

Standaard in het pakket zijn de vol¬ 
gende printers: Mps 1000, Mps 2000, 
Diablo 630, Epson FX-HP laserjeten 
de Juki 6000 met een PS optie. Door 
de Preference optie te kiezen is bijna 
elke printer via de printer set-up te ge¬ 
bruiken. 

De software bestaat uit: 


VizaHi'ite: i. G 
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° Het VizaWrite pakket. Voor het op¬ 
starten van het programma is het 
veiliger eerst een kopie hiervan te 
maken en het orgineel op een vei¬ 
lige plaats op te bergen. (Denk er 
aan dat dit alleen mag voor eigen 
gebruik). 

° De Amiga Kickstart disk. In sommi¬ 
ge Amiga computers is deze inge¬ 
bouwd in de ROM. De kickstart ver¬ 
sie VI.1 zowel als V2.1 is te gebrui¬ 
ken. 


° Een of meerder geformatteerde dis¬ 
kettes om de documenten op weg 
te schrijven. 

Het gebruik 

Het VizaWrite pakket benut volledig 
alle voordelen van de Amiga zoals het 
op ikonen gebaseerde operating Sys¬ 
tem, met een menu boven in het 
scherm en meerdere raamwerken. 
Als u nog niet thuis bent in het werken 
met de Amiga is het verstandig eerst 
wat te oefenen met de verschillende 
Amiga mogelijkheden. Gebruik hier¬ 
voor de Kickstart en de Workbench 
disk. U kunt ook de workbench van 
VizaWrite gebruiken. Als u hiermee 
overweg kunt is het werken met Viza¬ 
write geen enkel probleem meer. Het 
is een goede gewoonte alle overbo¬ 
dige Windows te sluiten dit om geheu¬ 
gen ruimte te sparen. Aanzetten van 
de computer en het ’booten’ zoals u 
gewoon bent is voldoende om het 
workbench-scherm te laden. Met de 
muis wordt nu het VizaWrite ikoon 
tweemaal snel achter elkaar aange¬ 
klikt en het programma wordt nu ge¬ 
laden. Het is ook mogelijk om via de 
ikoon documenten direkt te laden. 

Eventuele instellingen, bijvoorbeeld 
de kleuren, zijn via de preferences 
eenvoudig te veranderen. Hierdoor is 
het geheel naar eigen wensen aan te 
passen. Na het laden van het pro¬ 
gramma VizaWrite verschijnt het edit 
scherm. 

Dit is door het aanklikken van het 
zwarte vlakje rechsboven naar de 
achtergrond te verplaatsen. Zo komt u 
dan weer in het workbench-scherm te¬ 
recht. U kunt nu bepaalde instellingen 
veranderen zonder dat het program¬ 
ma waar u aan bezig bent verlorten 
gaat. U keert weer terug naar het edit 
scherm door het aanklikken van het 
witte blokje rechtsboven. Een tweede 
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mogelijkheid is het scherm niet naar 
de achtergrond te verplaatsen, maar 
naar beneden te trekken. Dit gebeurt 
door de gestreepte balk aan de bo¬ 
venkant aan te wijzen en de knop van 
de muis ingedrukt naar beneden te 
trekken. Documenten welke worden 
weggeschreven naar diskettes, krij¬ 
gen een eigen ikoon, die lijkt op een 
beschreven vel papier. Bij het dubbel 
aanklikken van deze ikonen wordt 
eerst het programma VizaWrite gela¬ 
den en meteen het bijbehorende do¬ 
cument. 

VizaWrite heeft geen aparte work- 
bench nodig om op te starten dus kan 
het zonder problemen op de harddisk 
worden gezet. Omdat het pakket kant 
en klaar wordt gelevert is er na het 
opstarten van het programma direkt te 
beginnen met het intypen of bewerken 
van de teksten. 


Muisbesturing 

Voor de mensen die veel 
met een tekstverwerker 
omgaan,is het misschien 
wennen om alle funkties 
met de muis te besturen. 

Alle opdrachten die met 
de muis werken zijn ook 
via het toetsenbord te ge¬ 
bruiken. Dit heeft het 
voordeel dat een ervaren 
persoon bepaalde op¬ 
drachten die veel voorko¬ 
men sneller kan uitvoe¬ 
ren. 

Door met de muis de me¬ 
nubalk, boven in het 
scherm aan te wijzen en 
de rechterknop ingedrukt 
te houden verschijnen 

alle besturingsfunkties. 

Hieruit kan men er een 
kiezen door de muis naar 
beneden te trekken. 

De zwarte balk vertelt welke funktie er 
gekozen is. 

Menu 

Het menu is verdeeld in zeven hood- 
funkties. Het file-menu geeft alle mo¬ 
gelijkheden om een document op te 
vragen, te sluiten, te verwijderen, te 
printen, de printer te wijzigen, maar 
ook informatie over het dokument is 
hiermee op te vragen; wie het ge¬ 
schreven heeft, op welke dag en te¬ 
vens worden alle statistische gege¬ 
vens op het scherm getoond. Het edit 
menu geeft de mogelijkheden blokken 
te kopieeren, te verwijderen, lijnen te 
plaatsen en pagina koppen en voet¬ 
noten te plaatsen. Zoek en vervang 
funkties bevinden zich in het zoekme- 


nu. Hiermee kan men zowel zoeken 
naar een woord als naar een of meer¬ 
dere letters. Zoeken en vervangen 
kan alleen vooruit. In het Fontmenu 
zijn er standaard 7 verschillende let¬ 
tertypes opgenomen die allemaal in 
de verschillende groottes kunnen wor¬ 
den weerg egeven. Waarbij alleen To- 
paz een niet-proportionele letter geeft. 
In het style menu kan men kiezen of 
de lettertypes onderlijnd, dik, in sub¬ 
script, in supersript of schuin moet 
worden afgedrukt. 

Met behulp van het Imagemenu zijn er 
tekeningen uit de diverse tekenpak¬ 
ketten tussen de tekst in te laden. Bij¬ 
voorbeeld Graflcraft of het beroemde 
DeLuxe Paint pakket. Deze tekenin¬ 
gen zijn door middel van een raam 
werk probleemloos te vergroten, te 
verkleinen en te verplaatsen. Hierbij 
past de tekst zich volledig aan. De te¬ 
kening is er dus gewoon tussen te 


plaatsen. In het glossary menu kun¬ 
nen standaard stukken tekst worden 
opgeslagen om deze op diverse, wil¬ 
lekeurige plaatsen te gebruiken. 

Dit kunnen tekstregels zijn maar ook 
komplete adressen zijn mogelijk. Een 
extra mogelijkheid van dit programma 
is de mogelijkheid van Mailmerge. Op 
willekeurige plaatsen in het document 
zijn er invoegtekens op te nemen ( ) 
waarvoor dan automatisch bepaalde 
teksten worden afgedrukt. Deze tek¬ 
sten worden in een datafile opgesla¬ 
gen. Deze zijn zowel met een Data¬ 
base te maken maar ook met het Vi¬ 
zaWrite pakket kunnen deze worden 
aangemaakt. Door middel van Print- 
Merge kunnen deze gecombineerde 
teksten worden uitgeprint. 


Voordelen 

° VizaWrite is zeer algemeen, teksten 
uit bijvoorbeeld Textcraft, tekenin¬ 
gen uit de LuxePaint, Graficraft het 
is allemaal geen probleem. Editten 
en saven van alle Ascii teksten is 
mogelijk. 

° Het werkt zowel met de NTSC als 
de PAL computers 

“Teksten worden automatisch in pa¬ 
gina's ingedeeld. 

0 Wat er op het scherm staat,komt op 
de printer. 

° Kop en voetregels worden op alle 
pagina’s getoond en kunnen uit 
meerdere regels bestaan. 

Indelen van de Layjout, kantlijnen, 
tabs, uitlijnen en de Iijnspati37ring ge¬ 
beurt op een eenvoudige wijze met de 
muis; de verandering is op het beeld¬ 
scherm te volgen. 

Tussentijds veranderen van de letter¬ 
types is altijd mogelijk 
en op het scherm zijn 
deze wijzigingen te 
zien. 


Verwijderen en kopie¬ 
eren gaat zeer snel 
omdat er met teksblok- 
ken kan worden ge¬ 
werkt welke door de 
muis worden aangewe¬ 
zen. Ze zijn herkenbaar 
door een felle oranje 
kleur. 

Scrollen is in alle rich¬ 
tingen mogelijk. Alle in¬ 
ternationale karakters 
kunnen worden ge¬ 
bruikt. 

Er kan worden gewerkt 
met verschillende de- 
faults voor printer, disk¬ 
drives en documenten. 


Nadelen 

Het enige nadeel dat ik heb ondervon¬ 
den bij het werken met dit pakket is 
dat het niet mogelijk is diskettes vanuit 
het programma te kunnen formatte¬ 
ren. 

Het VizaWrite pakket is ontwikkeld 
door Kelvin Lacy, ook de auteur van 
de C64 en 128 Versie. Het copyright 
berust bij Viza Software Limited. Het 
pakket wordt in Nederland op de 
markt gebracht door de firma; Altycos 
uit Zoetermeer. Voor inlichtingen kunt 

u bellen; 079-510757. 

De prijs voor deze uitstekende tekst¬ 
verwerker is in vergelijking met an¬ 
dere pakketten pakketten zeer laag 
gehouden ƒ 259,50 (incl. btw). 


VizaWrite: 1.00 (C) 1907 Viza Software 




Desktop VizaUJrite 
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This is Diamond 12, the default font. 
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Vanaf nu zal de Miniatuurtjes-rubriek er anders uitzien, een andere naam hebben: Basic 
Micro’s, en ook een andere samensteller. Nadat Nico Baaijens bijna 30 keer deze rubriek ver¬ 
zorgde en in die tijd zelf als hoofdredacteur van PC World zijn stempel op de PC ontwikkeling 
drukte, volgt Peter Broekhuizen hem op als degene die de selecties maakt en kijkt of de pro¬ 
gramma’s ook echt draaien. 


Basic Micro s 


I n deze rubriek zullen we proberen zoveel mogeiijk 
variaties aan te brengen wat betreft de program¬ 
maatjes. Niet alle programma’s zullen altijd je interesse 
hebben, maar we proberen ook rekening te houden met 
mensen die nog nauwelijks programmeerervaring heb¬ 
ben, en voor wie een eenvoudig programmaatje met 
een leuk effect zeer verhelderend kan zijn. 

We zullen verder zoveel mogelijk opdrachten op één 
regel proppen zodat er meer Micro’s op de twee blad¬ 
zijden passen. Erg lange programma’s zullen worden 
doorgegeven aan de mensen die de listingrubriek verzor¬ 
gen. Af en toe zullen we zelf ook een bijdrage leveren in 
de vorm van een kort programmaatje, verder kijken we 
bij elk ingezonden programma of het nog valt te verbete¬ 
ren of te versnellen. 

Tenslotte zullen voortaan alle Micro’s in een niet-propor- 
tionele letter gedrukt worden, dat wil zeggen dat een ‘i’ 
even breed is als een ‘w’. Dit kan het overtypen wat ge¬ 
makkelijker maken. 

Typemachine 

De eerste Micro komt van Remco Bosshard uit Vlaardin- 
gen en maakt van je printer en je computer samen een ty¬ 
pemachine. Alles watje intikt, verschijnt op het scherm, 
en wanneer je op RETURN drukt zal de hele regel naar 
de printer gaan: 

10 OPENl, 4 

20 GETA$:IFA$=""THEN20 

30 PRINTA$;:IFA$=CHR$(20)THENB$=LEFT$(B$, 

LEN(B$)-1AND255):GOTO20 
40 IFA$=CHR$(13)THENPRINT#1,B$:B$="":GOTO20 
50 B$=B$+A$:GOTO2 0 

Pas op met toetsen als SHIFT-CLR/HOME, die wel effect 
hebben op het scherm, maar niet op datgene wat geprint 
wordt. Zelf uitbreiden dus, als je daar problemen mee 
krijgt. 

Aandachttrekker 

En nu een "teksteffect dat de aandacht trekt”, zoals Bas 
Vinken uit Enschede het noemt. We hebben het zelf nog 
een beetje uitgebreid: 


10 DIMA(14):PRINTCHR$(147):Q=1476:F0RI=1T014 
READA(I):NEXT 

20 FORS=0TO9:F0RI=1T014:POKEQ+I,A(I):NEXT: 

IFS< 9THENFORI—ITOl4:POKEQ+15-ï,32:NEXT 
30 F0RTI=1T014:N=15-I:POKEQ+N,A(N):NEXT: 

IFS<9THENF0RI=1T014:POKEQ+I,32:NEXT 
4 0 NEXT:FORS=0TO9:F0RI=1T014-.POKEQ+I, 32: 

FORT=0TO4:NEXT:POKEQ+I,A(I):NEXT 
50 F0RI=1T014:N=15-I:POKEQ+N,32:FORT=0TO4: 

NEXT:POKEQ+N,A(N):NEXTI,S:GOTO20 
60 DATA 3,15,13,13,15,4,15,18,5,45,9,14,6,15 

Simon’s Basic 

Simon’s Basic blijkt nog steeds populair te zijn, gezien 
het feit dat hiervoor elke keer weer een flink aantal 
programmaatjes ingezonden wordt. Bernard Hudepohl 
uit Lelystad stuurde er maar liefst zeven tegelijk in, maar 
onderstaand programma was verreweg het beste. We 
hebben hem iets sneller gemaakt, door onder andere de 
berekening van COS(X) en SIN(X) voor de FORY=... te 
zetten; dit zijn details waar je soms een grote 
snelheidswinst mee kunt bereiken. 

10 COLOURO, 0 : A=1 0 :B=2.4 : Z=7T/180 :HIRES1,0 : 
MULTI1,6,14 

20 FORXX=0TO170STEP10:X=XX*Z:C=COS(X): 

D=SIN(X):E=D/B:F=2*A*C:J=J+1:IFJ=4THENJ=1 
30 C=C/B/2:D=A*D:FORY=0TO360STEP10 : 

G=SIN(Y*Z): Al=80+C*(Y-180)+D*G 
40 A2=100-E*(Y-180)+F*G:IFYTHEN- 

LINEA3,A4,Al,A2,J 
50 A3=A1:A4=A2:NEXTY,XX:PAUSEI 

60 MULTI0, 0, 7:FORC=lTO50:NEXT:MULTI7,0,0: 
FORC=lTO50:NEXT 

70 MULTI0,7,0:FORC=lTO50:NEXT:GOTO60 

Willekeurige cirkels 

Eindelijk eens iets voor de C-128! Het is een vrij een¬ 
voudig proramma dat tot in het oneindige willekeurige 
cirkels tekent. Als je geen kleurenmonitor hebt, kun je de 
COLOR-opdrachten in regel 10 wel weglaten. Koen de 
Liile uit Damme-Sijsele (België) is de schrijver: 

10 GRAPHICl, 1:COLOR0,1:COLOR4,1: 

COLOR1,INT(RND(1)*16)+1 
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20 C=INT(RND(1)*80)+1:D=INT(RND(1)*80)-1 
30 CIRCLE1,150,100,C,D:CIRCLE1,150,100,D,C: 
GOTO 20 

Lang zal ze leven 

Voor verjaardagen zeer bruikbaar is de Micro van Roel 
Nikkessen uit Bergen. Je moet natuurlijk nog steeds zelf 
zingen, maar als je C-128 de wijs al voor je speelt, wordt 
"Lang zal ze leven" een makkie. 

1 PLAY"QFIFSFQFQCQA.IASAQAQF05QC. 

ICSCIDIC04$IBIAQG.IGSGQG05IC04$IB 
HA$HB05HCQD04$QBHAHGHF" 

De taal van de machine 

Machinetaal is natuurlijk ook een onderdeel van deze 
rubriek. 

Ondanks het grote aantal programma’s in deze rubriek 
dat al vaak voor flitsende schermen heeft gezorgd, vol¬ 
gen er hier weer enkele voor de C- 64, want leerzaam 
blijft het. Met dank aan PAS (Pascal’s Advanced 
Software): 

10 FORI = 8192 T08 231:READA:X=X+A:POKEI,A:NEXT: 

IFX0532 9THENPRINT"FOUT IN DATA" : END 
20 DATA169, 0, 141,32,208,141, 33,208, 162,0,232, 
236,0,48,208,250,169,1,141,32,208 
30 DATA141,33,208,166,0,232,236,0,48,208, 

250, 169, 64,205, 197,0,240,217,96 
40 INPUT"[SHIFT-CLR/HOME]SNELHEID";A: 

POKE12288,A:WAIT203,64:SYS8192:GOTO40 

Kleurenbalken 

Kleurenbalken kun je volgens Obbe Vermeij uit Capelle 
aan de IJssel op de volgende manier programmeren: 

10 FORX=0TOl4:READY:POKE 4 9152 +X,Y: 

NEXT:INPUT"GETAL (0-255)";G:POKE49160, G 
20 POKE53280,1:POKE53281,1:SYS49152 

30 DATA120,238,32,208,238,33,208,162, 

22 9,202,208,253,7 6, 1, 192 



Terughalen 

Nu geen echt programma maar een methode om een 
programma terug te krijgen dat per ongeluk een NEW of 
RESET voor z’n kiezen kreeg, en dit alles van Martin v.d. 
Plas uit Katwijk aan Zee, voor de C-16: 


POKE4 097,28:POKE4 0 98, 16:POKE45, 85:POKE 
47, 85 : POKE4 9,85 

Grafisch grapje C-16 

En dan ook nog maar wat grafische grapjes voor de C- 
16, van Michaël Cramers uit Begijnendijk (België): 

10 GRAPHICl,1:FORX=4T0160STEP2 : 

CIRCLE1, 0,0,1.5*X, X,'90, 90+X/2,27 0 
20 CIRCLE1, 319,0,1.5*X,X,270-X/2,270:NEXT 

10 GRAPHICl,l:FORX=0TO360STEP6: 

CIRCLE1, 65+X/2, 80, 60, 33,,,X:NEXT 

Verschrikkelijke border-verdwijning 

Voor hen die de machinetaal vrezen volgt hier een echte 
verschrikking. Boris van Woerkom (14 jaar) uit Ooster- 
hout is de maker van deze Micro voor de C-64. Gelukkig 
heeft hij er een controle-teller ingebouwd. Het program¬ 
ma zorgt dat de border verdwijnt, zodat sprites tot aan de 
rand van je beeldscherm zichtbaar blijven. 

10 FORT=4 9152T04 9241:READA:B=B+A:POKET,A: 

NEXT:IFB=11198THENSYS4 9152:END 
20 PRINT"FOUT IN DATA!!": 

DATA169, 44,141,20,3,169,192,141,21,3,169,0 
,141,89,192 

30 DATA141, 14,220,169,127,45,17,208,141,17, 
208,169, 60,141,18,208,169, 129,141 
40 DATA26,208,173,25,208,141,25,208,88,96, 
169,1,141,25,208,172,89,192,185,85 
50 DATA192,141,18,208,185,87,192,234,234,141, 
17,208,200,192,2,208,8,160,0,140 
60 DATA 

89,192,76,49,234,140,89,192,76,188,254, 
249, 255,27,19,1, 61,0,36, 61,0,0,0 

Voor romantici 

Voor de romantici onder ons, die vinden dat Nederland 
en België ’s nachts veel te vaak dicht bewolkt zijn, volgt 
hier een sterrenhemel, ontworpen door Francis Van- 
dewalle uit Sijsele (België). 

1 PRINTCHR$(147):POKE53281,0:FORI=lTO50: 
POKE1024+RND(0)*1000,46:NEXT: WAIT0 ,0 

C-16 en C-128 

Veel mensen klagen dat er zo weinig aandacht is voor de 
C-16 en de C-128. In deze rubriek proberen we hier wat 
aan te doen, maar we zijn hierbij wel afhankelijk van de 
ingezonden programma’s. Bij deze wil ik iedereen 
daarom nog eens uitdrukkelijk uitnodigen om eigen 
gemaakte programma’s in te zenden. 

Als laatste een tip voor bezitters van de C-16 en C-128 
computers. Sommige opdrachten werken exact hetzelfde 
op beide apparaten, dus als er een Micro voor de C-16 in 
staat, probeer hem dan ook eens op je C-128, of om¬ 
gekeerd. Doe dit echter niet als er POKE-opdrachten in¬ 
staan ! 
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Het tachtig-koloms scherm van de Commodore 128 kan een resolutie van 640 x 200 
punten bereiken. De bit-map instructies voor het 40-koloms scherm werken echter niet. 
Daarvoor heeft Peter Heinckiens in de eerste aflevering van dit artikel een programma 
ontwikkeld, Minigraph. Dat programma wordt in deze aflevering verder uitgewerkt. 


Hoge resolutie 

met het 80 -kolomscherm 

(deel 2) 

W e hebben in de eerste aflevering (3e jaargang nr. 9, dec. 1986) de 
methode uiteengezet om te werken met het hoge-resolutiescherm in 80- 
kolomsmode. In dit nummer gaan we het toen ontworpen programma, MIN¬ 
IGRAPH, verder uitbreiden. 


Hardcopy 

Indien u over een printer beschikt, zult 
u vast wel eens een afdruk van uw 
grafische kunstwerkjes willen maken. 
Daarom willen we u de volgende hard- 
copy-routine (voor de MPS 803) zeker 
niet onthouden. Maar een beetje uit¬ 
leg is daarvoor wel nodig. 

We hebben in aflevering 1 gezien hoe 
het hires-beeldscherm in de computer 
wordt opgeslagen, nl. volgens het vol¬ 
gende schema: 


-i— \ —1—I—i—<— 

oco -i 

- 

X 

cc a c 

OOS ‘ 


o c (4 c 

C?c A i 












schema 1. 

Daar de MPS 803 vertikaal 7 naalden 
heeft, is hij in staat 7 rijen ineens af te 
drukken. Horizontaal heeft deze prin¬ 
ter slechts 1 naald, dus kan er per 
‘aanslag’ slechts 1 kolom worden af¬ 
gedrukt. Dit alles wordt gedaan door 
de volgende byte te vormen: 

1xxxxxxx 
! ! ! ! 

rij 7 ! ! rij 1 

! I 

Vrij 2 

! 

rij 3 


waarbij bit 7 steeds geset is, en de 
overige bits 0 of 1 zijn, naargelang de 
overeenkomstige bit in de overeen¬ 
komstige rij respectievelijk 0 of 1 is. 
Laten we dit illustreren aan de hand 
van een voorbeeld: 

Stel dat we de volgende figuur willen 
printen: 

******** 


******** 

Dan dienen we de volgende data naar 
de printer te sturen: 

kolom 1 : 11100011 (bit 7 is 

altijd geset) 

kolom 2 : 11010101 
kolom 3 : 11001001 
enz. 

Nu doet zich wel een probleem voor: 
de MPS-803 heeft slechts een hori¬ 
zontale resolutie van 480 punten, ter¬ 
wijl het beeldscherm horizontaal 640 
punten heeft. Bijgevolg zullen we ge¬ 
noodzaakt zijn om het scherm in de 
lengterichting af te drukken. 

Ook de VDC zorgt voor de nodige 
moeilijkheden: door zijn langzame en 
omslachtige adressering, zou het veel 
te lang duren indien we rechtstreeks 
met het schermgeheugen moesten 
werken. Een alternatief zou kunnen 
zijn het volledige schermgeheugen 
naar de RAM te kopiëren, maar dit zou 
16K innemen, wat toch betrekkelijk 
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schema 2. 

veel is. De oplossing: kopieer de 
VDC-RAM in kleine delen tegelijk, en 
druk deze elk afzonderlijk af. 

Zoals reeds gezegd, moeten we het 
scherm ‘op zijn kant’ afdrukken, dus 
volgens schema 2. 

We zullen 1 schermkolom tegelijk ko¬ 
piëren en afdrukken, en we beginnen 
met de laatste kolom. Dit dienen we 
92 maal te herhalen. 

Alsof er nog niet genoeg waren, duikt 
er weer een probleem op: een Byte 
heeft acht bits, en houdt dus infor- 


80 op de 64 
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matie vast van acht pixels. De MPS- 
803 kan echter slechts zeven punten 
tegelijk afdrukken, en bijgevolg blijven 
we met een bit zitten. Deze bit zal nu 
met de volgende Byte samengeno¬ 
men moeten worden, met als resultaat 
dat we nu twee bits overhebben. Eén 
en ander wordt verduidelijkt in sche¬ 
ma 3. 

Hoe gaan we nu te werk? Noemen we 
N het aantal bits die nodig zijn van de 


Ms n oci.a vflff b^t< a 
byte l 4 bit over 

£ bit S stoeit 4 V** byte 1 
* A bic van b\.'tt i 
i>> te. l l bid over 

S biii rtoc/tg van b^te 3 
byte 3 j over 


schema 3 


listing 1 

KOPIEER 

LDA 

LOBYTEOPSLAG 

i - 

we plaatsen de 

VERDER 

JMP 

DEC 


STA 

LOBYTE 

pointer LO/HIBYTE 


LDA 


LDA 

HIBYTEOPSLAG 

op de af te drukken 


STA 


STA 

HIBYTE 

lijn 


LDA 


LDY 

#$00 ; 

kolomteller op nul 


STA 

LOOP 

STY 

OPSLAG 

en bewaren 

LOOP2 

LDY 


LDY 

#$12 

zet pointers op de in 


STY 


LDA 

IBYTE 

te lezen byte 


LDY 


JSR 

PLAATS 



LDA 


INY 




ISR 


LDA 

LOBYTE 



INY 


JSR 

PLAATS 



LDA 


LDY 

#$1 F 

en lees deze byte in 


JSR 


JSR 

LEES 



LDY 


LDY 

OPSLAG 



JSR 


STA 

($FA),Y 

plaats in gewone RAM 


STA 


CLC 




LDY 


LDA 

LOBYTE 

laat pointers naar de 


LSR 


ADC 

#$50 

volgende rij wijzen 


LDA 


STA 

LOBYTE 

(zelfde kolom) 


ROR 


BCC 

CONT 



STA 


INC 

HIBYTE 



DEX 

CONT 

INY 




BNE 


CPY 

#$C8 

alle 200 bytes gehad? 


LSR 


BNE 

LOOP 



STA 


LDX 

$FC 

; indien alle bits in 1 byte 


CLC 


BNE 

CONT3 

; zaten : dan klaar 


LDA 


LDX 

#$07 



ADC 


BPL 

EINDE 

; gelijkwaardig met JMP 


STA 

CONT3 

DEX 


; bitteller 1 verlagen. 


BCC 


BNE 

VERDER 

tweede nul opvangen 


INC 


LDY 

#$00 


CONT2 

LDX 

LOOP1 

LDA 

($FA),Y 

; alle bits 1 plaats naar 


DEX 


LSR 


; rechts schuiven 


INY 


STA 

($FA),Y 



CPY 


INY 




BNE 


CPY 

#$C8 


EINDE 

STX 


BNE 

LOOP1 



RTS 


DEC 

LOBYTEOPSLAG 

; op volgende kolom pointen 


1 - 

listing 2 

DRUK AF 

LDY #$00 




LOOP 

LDA ($FA),Y 

; lees een byte 




ORA 

#$80 ; plus $80 




JSR 

$FFD2 

; druk af 




INY 

; volgende byte 




CPY 

#$C8; alle 200 bytes gehad? 





BNE LOOP 
RTS 

; nee : doe verder 




volgende Byte, dan zien we dat N ach¬ 
tereenvolgens de waarden 0, 6, 5, 4, 
3, 2, 1, 0, 0, 6, 5, 4, ... aanneemt. 0 
wordt dus tweemaal bereikt: één keer 
voor bits 0 tot en met 6 en eenmaal 
voor bits 1 tot en met 7. In het eerste 
geval zullen we onmiddelijk de accu¬ 
mulator kunnen laden met de Byte- 
waarde, en deze naar de printer stu¬ 
ren (na er eerst $80 bij opgeteld te 
hebben), in het tweede geval echter, 


; lees byte in 


EINDE ; en we zijn klaar. 

LOBYTEOPSLAG; zet pointers op volg. 
LOBYTEOPSLAG; kolom 
LOBYTE 

HIBYTEOPSLAG • 

HIBYTE 

#$00 ; bewaar Y 

OPSLAG 
#$12 
HIBYTE 
PLAATS 


LOBYTE 

PLAATS 

#$1 F 

LEES 

BEWAAR 

OPSLAG 

BEWAAR 

($FA),Y 

($FA),Y 

LOOP1 

($FA),Y 

LOBYTE 

#$50 

LOBYTE 

CONT2 

HIBYTE 

$FC 


bewaar die byte 
lees Y (byteteller) 
schuif de bits bij 
de byte van de 
vorige kolom 


;nogmaals opschuiven 
;zodat bit 7 leeg is. 

; pointers op volgende 
; byte laten wijzen 


#$C8 

LOOP2 

$FC 


; bitteller verlagen 

; volgende byte 
; alle bytes gehad? 

; bitteller opslaan 


zullen we eerst met een LSR alle bits 
een plaats naar rechts moeten op¬ 
schuiven. 

Na al deze uitleg kunnen we nu einde¬ 
lijk overgaan tot het eigenlijke pro¬ 
gramma. Wel nog dit: de benamingen 
‘lijn’ en ‘kolom’ zullen steeds slaan op 
de printeruitvoer, en niet op het beeld¬ 
scherm. 
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listing 3 




STA 

$FB 


MAIN 

LDA 

#$5C 

; 92 maal de routine 

JSR 

KOPIEER 

; kopieer deel van 


STA 

COUNT 

; doorlopen 

LDA 

#$00 

; het scherm 


LDA 

#$4F 

; pointer op laatste kolom 

STA 

$FA 



STA 

LOBYTEOPSLAG 

; van de eerste rij 

LDA 

#$04 



LDA 

#$00 


STA 

$FB 



STA 

HIBYTEOPSLAG 


JSR 

DRUK AF 

; druk kopie af 


LDA 

#$00 

; bitteller op nul 

LDA 

#$0D 

; begin nieuwe regel 


STA 

$FC 


JSR 

$FFD2 


LOOP 

LDA 

#$00 

; zet pointers op geheugen- 

DEC 

COUNT 

; teller verlagen 


STA 

$FA 

; ruimte naarwaar gekopieerd 

BNE 

LOOP 



LDA 

#$04 

; moet worden. 

RTS 




Laten we beginnen met de kopieer- 
routine (meteen ook de langste en 
moeilijkste routine). Deze kopieert 
200 bytes (zie listing 1). 

De volgende stap is het afdrukken van 
de gekopieerde Bytes. Dit gaat nu vrij 
eenvoudig, we mogen enkel niet ver¬ 
geten bij alle Bytes $80 op te tellen. 
Deze optelling kunnen we echter ook 
vervangen door een logische OR met 
$80 (probeer dit maar)(zie listing 2). 

Ons programma is nu eigenlijk af: we 
hebben enkel nog een routine nodig 
die de twee bovenstaande deelpro¬ 
gramma’s aan elkaar knoopt. 

Indien we dit programma zouden run¬ 
nen, dan zouden we zien dat de af¬ 
druk redelijk veel uitgerekt is in de 
lengterichting. Dit kunnen we opvan¬ 
gen door iedere vertikale lijn twee 
keer af te drukken. Onze DRUK AF- 
routine ziet er dan als volgt uit: 


DRUK AF 

LDY 

#$00 

LOOP 

LDA 

($FA),Y 


ORA 

#$80 


JSR 

$FFD2 ;druk af 


JSR 

$FFD2 ;opnieuw 


INY 



CPY 

#$C8 


BNE 

LOOP 


RTS 



Het nadeel van deze manier van af¬ 
drukken is evenwel dat we een minder 
fijne tekening krijgen (zie figuren 1 en 
2). Een andere oplossing zou zijn om 
in de horizontale richting enkele ko¬ 
lommen weg te laten, en in plaats van 
een 640x200 tekening slechts een 
320x200 tekening af te drukken. Op 
deze methode zullen we hier evenwel 
niet ingaan. 

Horizontale lijnen 

Indien u de demo uit het vorig nummer 
geprobeerd heeft, zult u ongetwijfeld 


gemerkt hebben dat het betrekkelijk 
veel tijd in beslag nam om de X- en de 
Y-as te trekken. Daarom zullen we 
hier een machinetaalroutine voor ont¬ 
werpen, zodat we in het vervolg der¬ 
gelijke assen kunnen trekken in een 
fractie van een seconde. 

Laten we beginnen met een routine 
voor horizontale lijnen. Op het eerste 
gezicht zouden we deze routine op¬ 
stellen aan de hand van volgend al¬ 
goritme: 

HLINE xl TO x2, y met xl < x2 

teller := xl (teller beslaat 2 Bytes) 
LOOP PLOT (teller AND 255, teller/256, 

y) 

teller := teller + 1 

als teller <= x2 dan LOOP 

einde 

Wat dus analoog is aan de BASIC- 
routine uit het eerste artikel. Het kan 
echter allemaal nog veel sneller: bekij¬ 
ken we immers eens het volgende 
schema: 



Indien we het lijnstuk [x3,x4] be¬ 
schouwen, zien we dat dit juist over¬ 
eenstemt met 2 Bytes. In plaats van 
16 keer de PLOT-routine aan te roe¬ 
pen om een pixel aan te schakelen, 
zou het dus veel sneller zijn om de 
twee betreffende Bytes met de waar¬ 
de $FF te vullen. 

Wat nu gedaan met lijnstukken die 
niet precies overeenkomen met een 
geheel aantal Bytes? Beschouwen we 


hiertoe het lijnstuk [xl ,x2], en verde¬ 
len we dit in de volgende stukken: 
xl ,x3] + [x3,x4] + [x4,x2]. Voor [x3,x4] 
oinnen we de zonet besproken me¬ 
thode toepassen, maar voor [x1,x3] 
en [x4,x2] zijn we genoodzaakt van 
ons eerste algoritme te gebruiken. 

Het voordeel van deze werkwijze is 
vooral merkbaar indien men verschil¬ 
lende (lange) rechten moet trekken 
(bijvoorbeeld in een FILL-routine). Zie 
listing 4. 
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schema 5 


Vertikale lijnen 

Voor vertikale assen zouden we een 
analoge methode kunnen toepassen, 
zoals schema 5 duidelijk maakt. 

Het enige wat we hier moeten doen is 
berekenen welke bit geset dient te 
worden (in ons voorbeeld is dit de der¬ 
de), en deze setten in iedere rij. In ons 
voorbeeld dienen we dus in iedere rij 
de derde bit te setten, en dit kan door 
met iedere rij een OR uit te voeren met 
%00001000 = $08. 

Dit alles zal echter heel wat program- 
meerwerk vergen, en men kan zich 
afvragen of het wel de moeite waard 
is het VLINE-programma te versnel¬ 
len als men al een versnelde HILNE 
heeft die kan instaan voor zaken zoals 
bijvoorbeeld FILL. We zullen dan ook 
niet nader ingaan op bovenstaande 
methode, maar een veel eenvoudiger 
programma in de plaats geven. Zo 
eenvoudig zelfs dat verdere uitleg 
overbodig is. 
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Listing 4 

aanroeping: 

HLINE XI (LO), XI (Hl), Y 
X2(LO) ~> LINE4 
X2(HI) --> LINE5 

HLINE STA LINE1 
STX LINE2 
STY LINE3 

; eerste deel: trek [xl ,x3] 

AND #$07 ; bereken 7 - (X and 7) 


ROR TIJDELIJK 
DEC TIJDELIJK 
BEQ VERDER 

; in de accu zit nu het aantal keer dat een 
; volledige byte mag geset worden. 

; indien dit nul maal is, wordt er naar 
; deel 3 gesprongen. 


BEQ 

STA 

LDA 

SEC 

SBC 

STA 

LDA 

LDX 

LDY 

JSR 

LDA 

ADC 

STA 

BCC 

INC 

CONT 

CMP 

BNE 

LDA 

CMP 

BEQ 

CONT2 

BPL 


KLAAR 

TIJDELIJK 

#$07 

TIJDELIJK 
TIJDELIJK 
LINE1 
LINE2 
LINE3 
PLOTIN 
LINE1 
#$01 
LINE1 
CONT 
LINE2 
LDA Lir 
LINE5 
CONT2 
LINE1 
LINE4 
EINDE 
DEC TL 
LOOP 


; indien nul : klaar 


; druk punt 

; x-coordinaat verhogen 


LINE2 ; is de lijn al klaar? 
; (dan is die kleiner dan 
; 8 pixels) 


; zo ja : gedaan 

TIJDELIJK ; anders : volgende dot 


; set i 

LDA 

STA 

LDX 

STX 

LDY 

STY 

JSR 

LDY 

LDA 

JSR 

INY 

LDA 

JSR 

LDA 

LDY 

JSR 

CLC 

LDA 

ADC 

STA 

BCC 

INC 


de bytes 

LINE1 ; wi 

EERSTE 

LINE2 ; bi 

TWEEDE 

LINE3 

DERDE 

BEREKEN BYTE 

#$12 

VIERDE 

PLAATS 


; we berekenen adres 

; van byte die moet 
; behandeld worden. 


; (resultaat in derde 
; en vierde) 


DERDE 
PLAATS 
#$FF 
#$1 F 
PLAATS 


; vul Byte met $FF 


CONT 


BPL 


DERDE ; zet f 

#$01 ; volg 

DERDE 

CONT 

VIERDE 

DEC TIJDELIJK 
LOOP 


; zet pointers op 
; volgende Byte 


; derde deel : trek [x4,x2] 


tweede deel: trek [x3,x4] 
bepaal aantal af te drukken bytes 
formule: 

N = INT ((x2-x3+1)/8 ) 


KLAAR SEC 
LDA LINE4 
SBC LINE1 
STA TIJDELIJK 
LDA LINE5 
SBC LINE 
TAX 

LDA TIJDELIJK 
ADC #$01 
STA TIJDELIJK 
BCC CONT 
INX 
TXA 


; bereken x2-x3+1 


LSR 


; en deel door 8 


ROR TIJDELIJK 
LSR 

ROR TIJDELIJK 
LSR 


VERDER 

AND 

TAX 

CMP 

BEQ 

LDA 

LOOP 

ROR 

DEX 

BPL 

STA 

LDA 

STA 

LDA 

STA 

LDY 

STY 

JSR 

JSR 

ORA 

JSR 

EINDE 


LDA 

#$07 

#$07 

EINDE 

#$00 

SEC 


LINE4 ;bereken X2 and 7 

;als dit 7 is, dan moet 
;volledige byte geset 

;worden, dit is gedaan 
;in deel 2 => EINDE 

;plaats in accu zoveel 
;enen als dots geset 
;moeten worden 


LOOP 

TIJDELIJK 

LINE4 ;en 

EERSTE 

LINE5 

TWEEDE 

LINE3 

DERDE 

BEREKEN BYTE 
$0B6A 
$28 
$0BC6 
RTS 


;en plaats de accu in 

;desbetreffende byte 
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Listing 5 


Aanroeping: 


VLINE X(lo), X(hi), Y1 
Y2 > LINE4 


VLINE STA 

LINE1 

STX 

LINE2 

STY 

LINE3 

LDA 

LINE4 

SEC 




SBC 

LINE3 

; bereken y2 - yl + 1 

STA 

TIJDELIJK 

; en plaats dit in 

INC 

TIJDELIJK 

; tijdelijk. 

LDA 

LINE1 


LDX 

LINE2 


LDY 

LINE3 


JSR 

PLOT 

; druk punt af 

INC 

LINE3 

; y-coörd. verhogen 

DEC 

TIJDELIJK 


BNE 

LOOP 


RTS 




Kleur 

Tot nu toe waren al onze tekeningen 
in zwart-wit. Het is natuurlijk ook mo¬ 
gelijk om met andere kleuren te wer¬ 
ken. Hiervoor dienen we register 26 
van de VDC-chip aan te spreken, en 
wel als volgt: 

bits 0 - 3 : achtergrondkleur 
bits 4 - 7 : voorgrondkleur 

Indien v het nummer van de voor¬ 
grondkleur is, en a dit van de achter¬ 
grondkleur voorstelt, dan dienen we 
het volgende getal in register 26 te 
plaatsen: 

getal = v*16 + a. 

De routine in listing 6 doet dit. 


De kleurnummers zijn jammer genoeg 
niet dezelfde als de gewone 80- 
koloms-kleurnummers. Ze zijn: 


1 : zwart 

2 : donker blauw 

3 : licht blauw 

4 : donker groen 

5 : licht groen 

6 : donker cyaan 

7 : licht cyaan 

8 : donker rood 

9 : licht rood 

10: donker paars 

11 : licht paars 

12 : bruin 

13 : geel 
14: grijs 
15 : wit 


Het programma 

Het programma uit het vorig nummer 
had de vervelende eigenschap dat bij 
veel computers aan de rechterzijde 
van het scherm strepen merkbaar wa¬ 
ren. Dit komt omdat er twee versies 
van de CBM 128 in omloop zijn. Bij de 
ene versie moeten de bits 0 tot 2 van 
register $19 gecleard zijn bij het aan¬ 
schakelen van de hoge resolutie, en 


bij de andere moeten deze geset zijn. 
Indien de strepen bij u merkbaar wa¬ 
ren, bezit u de tweede versie, en dient 
u register $19 met $87 te laden in 
plaats van met $80. 

Het PLOT-programma uit het vorig 
nummer is enigszins gewijzigd, zodat 
er nu ook een UNPLOT voorhanden 
is. Daarom wordt het hele programma 
nog eens afgedrukt, samen met het 
programma van deze maand. 

De verschillende routines dienen aan¬ 
geroepen te worden zoals in listing 7 
is vermeld. 

Tenslotte voor de duidelijkheid een 
overzicht van de programma’s die 
hierna volgen: listing 1 is de BASIC- 
lader, listings 2 en 3 zijn demo-pro- 
gramma’s, en indien u het programma 
liever met de monitor ingeeft, dan 
dient u listing 4 in plaats van listing 1 
in te typen. 

Peter Heinckiens 


Listing 6 



Listing 7 


Aanroeping: 


AAN 

SYS DEC ("BI 8") 

COLOR v,a 



UIT 

WIS 

SYS DEC ("B3A") 

SYS DEC ("B22") 

met v = 

a = 

= voorgrondkleur 
achtergrondkleur. 

PLOT 

UNPLOT 

HARDCOPY 

SYS DEC ("BB3"), X(LO), X(HI), Y 

SYS DEC ("BBB"), X(LO), X(HI), Y 

SYS DEC ("C98") 




HLINË 

POKEDEC ("1153"), X2(LO) 

COLOR 

ASL 

ASL 

; bereken v*16 


POKEDEC ("1154"), X2(HI) 

SYS DEC ("CCD"), XI (LO), XI (Hl), Y 

ASL 



VLINE 

POKE DEC ("1153"), Y2 

ASL 




SYS DEC ("D9B"), X(LO), X(HI), Yl 

STX 

BEWAAR 

; a in bewaar 

COLOR 

SYS DEC ("DC4"), V, A 

ORA 

BEWAAR 

; tel a bij accu op 



LDY 

#$26 

; plaats accu in 



JSR 

PLAATS 

; register 26 



RTS 
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Programmalistings minigraph 


10 

REN 

li 

ii 

!i 

ii 

ii 

1 1 

REN 


12 

REN 


13 

REN 


14 

REN 


15 

REN 


16 

REN 


1 < 

REM 


18 

REM 


19 

REN 


201 

FOR T 

=50 TO 

21 

RERD 

R 

22 

PÜKE 

2816 

23 

B = • Ë 

! + R 

24 

NEXT 


25 

IF B< 

;>8038 

20* 

DRTR 

140 , 

27 

DRTR 

214 , 

28 

DRTR 

173 , 

2S* 

DRTR 

11 , 

301 

DRTR 

0 1 

31 

DRTR 

30i , 

•*2» •“*! 

DRTR 

169 , 

•J 7» 

DRTR 

O ,» 

34 

DRTR 

OO 

•Z*cL 7 

35 

DRTR 

7 , 2 

36 

DRTR 

10 , 

•'*» "7 

•-* f 

DRTR 

32 , 

• 1 ‘ o 
•1*0 

DRTR 

81 .* 

39 

DRTR 

251 , 

401 

DRTR 

188 , 

41 

DRTR 

230 , 

42 

DRTR 

38 , 

43 

DRTR 

133 , 

44 

DRTR 

73 

45 

DRTR 

133 , 

46 

DRTR 

18 , 

47 

DRTR 

01 , 1 

48 

DRTR 

80 

49 

DRTR 

17 , 

50 

DRTR 

32 , 

51 

DRTR 

160i , 

52 

DRTR 

173 , 

53 

DRTR 

•“*» •“« O 

7 

54 

DRTR 

208 , 

55 

DRTR 

01 , 1 

56 

DRTR 

246 , 

57 

DRTR 

173 , 

58 

DRTR 

O O 

O O 7 

59 

DRTR 

17 , 

601 

DRTR 

11 , 

0* 1 

DRTR 

70 , 

62 

DRTR 

74 , 

63 

DRTR 

82 , 

0*4 

DRTR 

200 .. 

65 

DRTR 

01 , 1 

66 

DRTR 

255 , 

0*7 

DRTR 

141 , 

68 

DRTR 

141 , 

69 

DRTR 

250 , 

70 

DRTR 

133 , 

71 

DRTR 

13 , : 

*7 ,.- t 
i i tL 

DRTR 

234 , 

73 

DRTR 

41 , 

74 

DRTR 

401 , 

75 

DRTR 

82 , 

76 

DRTR 

141 , 

t t 

DR 1 R 

1 7 , 

78 

DRTR 

O ‘Z l 
*Z7 '9 7 

79 

DRTR 

83 , 

8Ö 

DRTR 

23 7 , 

81 

DRTR 

144 .< 

O ’ "1* 

DRTR 

74 , 

y y 

DRTR 

133 .. 

84 

DRTR 

132 , 

85 

DRTR 

0 , 1 

86 

DRTR 

160 , 
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17 


166 , 252 , 302 
.5 3 t 9 0 * , 2 8 4 
255 , 32 , 210 
96 , 284 , 169 

, 17 , 169 , 8 
0 , 133 

169 , Ö 
12 , 169 

224 , 96 


246 

160 
92 


169 
11 

18 8 
208 


, 17 

, 142 

, 81 

, 17 

, 1401 

, 82 

, 17 

54 , 

133 / 

40 , 

169 t 

i 7 

50* , 

229 

173 

, 801 

, 17 

, 174 

, 81 

, 17 

, 172 

179 , 

11 , 

173 

, 801 , 

17 , 

1015 

, 1 


17 , 

144 

7 » 1T * .» 

y4 

17 , 

2010! 

240 , 

191 

, 198 

? 

C'J f 7 

801 , 

17 , 

*1 "“J 

1 i 1 

1 70 

, 165 

CL'Jtü. 7 

138 

, ( 4 

401 , 

1 90! 

, 401 

, 174 

, 81 

, 17 

» 82 

. 125 

, 11 

:00 , : 

L 0.5 , 

252 

'j ■" 1 
•JC*. 7 

0 , 

11 , 


3* ‘17 O 


y 


, 40 
133 , 
, 40 
102 


81 , 
173 , 
16. 
40 , 

, 1 05 

, 401 
, 53 


17 , 
80i , 
21 1 
173 
, 1 
74 
173 


173 , 
1 ( 

t 56 
84 , 
133 
102 
, 801 


81 
205 
, 173 

17 


401 

1 t 


134 , 
160 , 
32 , 0 


li.--» X , i f t , CfcL 


18 


165 


253 


< 


O * » 
v7C- 


24 


165 


11 

252 


169 , 255 
105 , 1 
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S7 

DR i R 1 88 , 

252 , 144 , 2 . 238 , 253 , 198 

, 40 , 16 , 221 

o o 

Dft 1 R 1 73 .« 

83 , 17 , 41 , 7 , 170 , 201 , 

7 , 240 , 35 

8 '3 

Uft 1 R 169 .* 

0 .» 56 106 , 282 , 16 , 251 , 

133 , 40 , 173 

98 

DR 1 R 33 .* 

17 , 133 , 25Ö , 173 , 84 , 17 , 

133 , 251 , 172 

91 

□RTR 82 , 

1 ( , 1. , «£.•_* i£. , 8^1 , 1 i£.-_* .* 11 , 

32 , 106 , 11 

92 

DRTR 5 , 4Ö 32 , 193 .. 11 .■ 96 .. 234 , 141 , 8Q , 17 

93 

ÜRTfl 142 

81 , 17 , 140 , 82 , 17 , 173 , 

83 , 17 , 56 

94 

DRTR 237 , 

82 , 17 .. 133 , 40 , 230 .< 40 , 

173 , 80 , 17 

95 

DRTR 174 , 

81 , 17 , 172 , 82 , 17 , 32 , 

179 , 11 , 238 

96 

DRTR 82 , 

17 , 198 , 40 .» 208 , 237 , 36 .• 

234 , 10 , 10 

97 

DRTR 10 .• 

10 , 134 , 251 , 5 , 251 , 160 , 

6 , 3 2 , 0 

98 

DRTR 11 , 

96 , 234 , 234 , 0 


RERDV. 



LIS 

TI ND 1 



10 

REM ===== 

t rrr -rr 7^777 ~ ZZZ 1ZZ ZZZ ze Ze Ze Ze Ze IZZ Ze Ze IZZ 7ZZ Ze LZZ ze ez ze ze ze ze ze — ze ze ez ; 

--= —»---r 

11 

REM 



12 

REM 

MINIORRPH - DEMO 1 


13 

REM 



14 

REM 

DOOR 


15 

REM 



16 

REM 

PETER FiEÏNCKÏENS 


17 

REM 



18 

REM 

<C > 1986 


19 

REM 



28 

REM ===== 



21 

'• 



22 

fhst 


1*", ^ I 

23 

: 


70 REM HRRDCOPV 

24 

REM PRRRMETERS 

71 GETKEV m~ ■ IF R$ <> "P" THEN 76 

25 

ÜV z- ■”> i=; ET 
tl in C*. V •—* 

* Dr. — 1 L.UO 

f ’’2 UPEN 4,4 : Ci*iD4 : F'F!IN i L-HF!T*•. 8 > 

26 

X': = 62 

* VK = 100 

73 SVS DECC"C98"> 

27 

PK = DEC 

C"BB3"> 

74 PRINT#4 • CLOSE4 

o O 
o 

VflK = DEC 

C"0D9B"> 

75 • 

C l Q 

XRK — DEC 

<; "0CCD" > 

76 REM BilMRP UIT 

38 

DEF F MF C X > 

=SIN<X>-COS<2+X> 

77 GETKEVR$ 

31 

: 


78 SVS DEC <"0B3R” > 

32 

REM BIT 

MRP RRN 

79 PRINT"O" 

86 

SVS DECC" 

0B18" > 


34 



RERDV. 

CO 

01 

REM TEK 

EN X-RS 


•i'é 

POKE DEC 

C " 1153" >, 639 RND RK 


O '7 

*•.« t 

POKE DEC 

C"1154">, 639 / BK 


•~J* O 

o o 

SVS XRK, 

0 , 0 100 


39 



LISTING 2 

48 

REM TEK 

EN V—R 8 


41 

POKE DEC < 

"1153">,199 


42 

CUC LJOV 

64 , 1, 0 


43 

- 



44 

REM VERTIKALE VERDELï MG 


45 

F OF! 1=0 TU 639 8 f EF’ 40 


46 

POKE DECC 

"1153">, 104 


47 

SVS VRK, 

T RND RK, T/BK ,96 


48 

HEXT 



43 




50 

PUKE DEC <. 

"1153">, 104 


51 

ce- ;* 

SVS VRK, 

639 RND RK, 639/BK ,96 


53 

REM HOR 

1ZONTRLE VERDELINO 


54 

FOp T=Ö T 

0 199 STEP 20 


55 

PURE DEC 

“1153">,67 


56 

PÜKE DECC 

"1154">,1 


cr 

( 

CUC VClV 
•«* t ■«.' 1 * ‘i n »* m j 

59, 1, T 


58 

HEXT 



53 

: 



68 

PÜKE DEC< 

"1153">,67 


61 

POKE DEC C 

"1154">, 1 


62 

SVS XRK, 

59, 1, 199 


63 




64 

REM TEKEN FUNCTIE 


&S 

POR T = Ö 

TO 639 


66 

• X = 0. 

0 i* <T—320> 


6 7 

: SVS PK 

, T RND RK, T/BK, 188-FNF00*30 


*L' O 
r »0 

NEXT 


Het restant volgt in het volgende nummer. 


82 
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